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ABSTRACT 

A  review  of  the  dual-phase  power  system  was  made.   This 
study  focused  on  the  multi-component  nozzle  of  this  dual- 
phase  system.   First,  an  existing  computer  code  predicting 
the  nozzle  performance  was  updated,  and  second  a  series  of 
experimental  tests  on  a  variable  area,  two-dimensional 
nozzle  was  performed  to  verify  the  computer  code . 
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I.   DUAL-PHASE  CYCLE 

The  dual-phase  nozzle  is  a  key  element  in  the  dual-phase 
engine  concept.   This  nozzle  will  be  studied  in  detail,  but 
first  a  review  of  the  dual-phase  cycle  will  be  carried  out 
from  information  obtained  from  References  1  and  2 . 

Reference  1  describes  the  dual-phase  engine  .   It  is  a 
new  concept  which  operates  on  a  mixture  of  two  fluids  or  two 
phases  of  one  fluid.   This  cycle  employs  a  high-torque/low- 
rpm  impulse  turbine  which  eliminates  the  requirement  for 
speed  reduction  needed  in  a  conventional  steam  turbine. 
This  allows  for  direct  drive  of  a  ship's  propeller  with  no 
gear  reduction.   This  is  ideally  suited  for  marine  propul- 
sion, reducing  weight,  noise,  and  volume. 

The  dual-phase  concept  is  a  modified  Rankine  cycle  with 
subtle  differences  of  extreme  importance.   In  a  normal  steam 
turbine  the  working  fluid  enters  a  turbine  through  a  nozzle 
where  the  kinetic  energy  of  the  working  fluid  is  converted 
to  a  mechanical  form.   The  dual-phase  system  introduces  a 
second  fluid  prior  to  entry  into  the  nozzle  .   This  fluid  is  of 
higher  vapor  pressure  than  the  steam  and  therefore  remains 
in  the  liquid  srate  throughout  the  cycle.   Section  A  will 
describe  this  two-component  cycle  while  section  3  will  do 
the  same  for  a  single-component  system.   The  dual-phase 


system  can  be  divided  into  the  two  groups  illustrated  in 
Figure  1.   Single-component  flow  can  be  further  divided  into 
three  categories . 

A.   TWO-COMPONENT 

A  two-component  mixture  is  one  in  which  the  low  vapor 
pressure  liquid  and  a  high  vapor  pressure  liquid  are  of  dif- 
ferent chemical  compounds .   Some  fluid  combinations  which 
have  been  considered  are  steam-krytox ,  steam-caloria,  steam- 
lead,  bismuth  eutectic,  and  dow-therminol .   A  schematic  flow 
diagram  and  process  representation  on  the  T-S  diagram  are 
shown  in  Figures  2  and  3  for  the  two-phase  engine  cycle  using 
a  "two-component"  mixture.   The  liquid  phase  is  lithium  car- 
bonate and  vapor  phase  is  steam.   To  illustrate  the  overall 
advantages  of  the  two-phase  engine  cycle  a  discussion  on  the 
theory  of  operation  will  be  presented  using  a  two-component 
mixture  and  Figures  2  and  3. 

The  major  component  of  the  dual-phase  system  is  the  nozzle 
A  mixer  area  is  located  prior  to  the  nozzle  inlet.   A  high 
vapor  pressure  liquid  is  placed  in  contact  with  the  low  vapor 
pressure  liquid  in  this  area.   A  high  pressure  vapor  liquid 
mixture  is  formed.   Since  the  temperature  of  the  liquid  is 
greater  than  temperature  of  the  water,  heat  is  transferred 
to  the  water  causing  it  to  vaporize  to  ooint  1.   Figure  4 
illustrates  the  temperature  and  state  point  from  the  inlet 
of  the  mixture  area  to  the  nozzle  exit.   This  mixture  is 
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expanded  to  a  low  pressure  at  the  nozzle  exit.   The  expand- 
ing vapor  transfers  momentum  to  the  liquid  droplets,  while 
the  droplets  transfer  heat  to  the  vapor.   This  tends  to  ap- 
aproach  isothermal  expansion  through  the  nozzle ,  point  2 . 
After  leaving  the  nozzle,  the  liquid  droplets  are  separated 
from  the  vapor  by  a  rotary  separator  located  on  the  turbine. 
The  rotating  drum  turns  at  close  to  the  nozzle's  exit  vel- 
ocity.  Hence  there  is  very  little  friction  loss  between  the 
separated  liquid  and  the  drum  wall.   The  centrifugal  accel- 
eration produces  a  very  clean  separation  of  vapor  and  liquid. 
The  liquid  traveling  with  the  rim  of  the  rotating  drum  trans- 
fers axially  through  holes  in  the  separator  disc  and  subse- 
quently enters  the  liquid  turbine  proper.   The  kinetic 
energy  of  the  liquid  is  converted  to  shaft  horsepower  by  the 
liquid  turbine.   Figure  5  illustrates  the  dual-phase  liquid 
impulse  turbine  assembly.   The  vapor  remains  superheated  as 
a  consequence  of  the  heat  transfer  from  the  liquid.   The 
vapor  flows  from  the  separator,  point  3,  through  a  regenera- 
tor where  heat  is  transferred  to  the  condensate.   The  vapor 
is  condensed,  point  5;  pumped  to  nozzle  pressure,  point  6; 
and  passed  through  the  regenerator  for  heating.   Heat  is 
added  between  point  6  and  point  1  in  two  methods .   The  re- 
generator adds  heat  to  the  condensate  by  using  the  steam 
from  the  turbine  rotor,  point  7.   The  remainder  of  heat, 
point  7  to  1,  is  added  by  the  heated  liquid  mixed  with  the 
condensate  in  the  mixer.   The  water  is  vaporized  by  direct- 
contact  heat  transfer. 

15 


where 


^ 


=  Temp  of  liquid  entering  mixer 

=  Temp  of  water  entering  mixer 

>  Tl 

=  Temp  of  steam  leaving  the  nozzle 

=  Temp  of  liquid  leaving  the  nozzle 


'igure  5 .   Temperature  S  State  Point  Diagram 
for  the  Mixture  S  Nozzle 
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In  the  nozzle  most  of  the  thermal  energy  of  the  steam 
is  converted  to  kinetic  energy  of  the  liquid  droplets . 
This  acceleration  of  the  liquid  by  the  vapor  in  the  two- 
phase  nozzle  provides  the  kinetic  energy  to  drive  the 
liquid  impulse  turbine.   The  liquid  velocities  involved 
are  relatively  low  as  compared  to  velocity  of  the  vapor. 
Thus,  the  output  of  the  impulse  hydraulic  turbine  will  be 
high  torque/low  rpm.   This  conversion  of  the  liquid  kinetic 
energy  to  shaft  power  at  high  torque  with  low  rpm  appears 
to  have  direct  application  to  naval  propulsion. 

B.   ONE-COMPONENT 

A  one-component  system  is  one  in  which  the  working  fluid 
is  of  the  same  chemical  compound.   One  of  the  simplest  dual- 
phase  one-component  systems  is  illustrated  in  Figures  6  and 
7.   The  working  fluid  is  heated  to  saturation  temperature  by 
some  type  of  heat  source.   Heat  sources  applicable  to  this 
case  are  geothermal  power  plants,  engine  exhaust,  industrial 
waste-heat  recovery,  and  bottoming  cycles  for  steam  and  gas 
turbine  plants.   This  working  fluid,  a~  saturated  liquid  con- 
ditions, with  small  amounts  of  vapor  is  expanded  through  a 
two-phase  nozzle.   As  the  expansion  process  takes  place  , the 
liquid  partially  vaporizes  and  accelerates  the  remaining 
liquid  phase  in  the  nczzle.   The  dual-phase  mixture  enters 
the  rotary  separator  and  the  same  process  occurs  as  mentioned 
in  section  A.   Since  the  liquid  phase  is  of  a  much  higher 
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density  than  the  vapor,  the  liquid  velocities  are  relatively 
low  as  compared  to  the  velocity  of  the  vapor.   Thus  the  out- 
put of  the  turbine  will  again  have  high  torque  at  low  rpm. 
After  leaving  the  turbine  the  vapor  mixture  is  condensed  and 
the  condensate  is  pumped  back  to  the  heat  source .   The  cycle 
is  shown  on  a  T-S  diagram  in  Figure  6 .   The  state  points  are 
numbered  to  correspond  with  Figure  5 .   The  dual-phase  nozzle 
expansion  takes  the  fluid  from  a  saturated  liquid,  point  1, 
to  a  dual-phase  flow,  point  2.   The  flow  is  decelerated  in 
the  rotor;  condensed,  point  4;  and  pumped  back  to  nozzle 
inlet  pressure  at  point  5  .   The  liquid  is  then  reheated  by 
the  source  fluid  to  point  1. 

Another  application  of  the  one-component  two-phase  cycle 
is  the  wet-to-dry  cycle.   If  the  initial  temperature  of  the 
working  fluid  is  sufficiently  high  and  the  saturation  curve 
has  a  positive  saturated  liquid  slope  the  working  fluid  can 
be  expanded  to  dry  vapor.   Figure  3  is  the  T-S  diagram  for 
a  wet-to-dry  cycle  .   The  fluid  is  expanded  from  saturated 
liquid  at  point  I  to  saturated  vapor  at  point  2 .   The  vapor 
drives  an  impulse  rotor  and  leaves  the  rotor  slightly  super- 
heated at  point  3.   The  vapor  is  condensed  to  point  4  and 
pumped  back  to  the  nozzle  inlet  pressure  at  point  5  . 

C.   ADVANTAGES 

The  advantage  of  the  dual-phase  cycle  with  respect  to 
marine  application  is  the  ability  to  achieve  low  shaft  SDeed 
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Figure  3.   Wet-to-Dry  T-S  Diagram 
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in  a  small  turbine  engine.   For  example  a  steam  turbine  of 
150-kw  shaft  horsepower  using  the  temperature  given  in 
Figure  2  would  have  a  speed  of  about  50,000  rpm.   A  compar- 
able two-phase  turbine  would  operate  at  approximately  10,000 
rpm.   There  is  also  an  efficiency  advantage.   At  temperature 
corresponding  to  Figure  2,  a  steam  Rankine  cycle  would  have 
an  efficiency  of  approximately  2  3%  where-as  the  two-phase 
cycle  would  have  an  efficiency  of  37%.   This  is  assuming  equal 
turbine  efficiencies .   The  two-phase  cycle  also  allows  for 
control  of  turbine  speed  because  the  vapor/liquid  mixture 
ratio  can  be  varied  to  change  the  nozzle  exit  velocity.   This 
is  a  capability  unavailable  in  a  conventional  steam  turbine . 

Both  of  the  dual-phase  concepts  can  be  thought  of  as  a 
form  of  a  regenerated  Rankine  cycle  .   The  dual-phase  cycle 
by  control  of  liquid/vapor  mixture  ratio  enhances  the  overall 
power  system  controlability .   The  T-3  relationship  for  a  dual- 
phase  two-component  engine  cycle  compared  to  a  Rankine  cycle 
is  shown  in  Figure  9 . 

Two  design  studies  References  1  and  2 ,  have  shown  potential 
advantages  in  the  two-phase  engine  cycle  as  compared  to  the 
conventional  Rankine  cycle  for  marine  propulsion.   The  fol- 
lowing  advantages  were  noted: 

1.  High  Efficiency  -  Full  load  output  power  performance 
gains  ranging  from  20  to  50  percent  was  found. 

2 .  Direct  Drive  -  Direct  drive  at  speeds  ranging  from 
90-4500  rpm  was  found  possible  with  a  single-stage  turbine. 
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Figure  9.   T-S  Comparison  of  Dual-Phase  Two- Component 

Cycle  £  Rankine  Cycle 
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3.  Reduced  Volume  -  Volume  reduction  of  30  percent 
were  estimated. 

4.  High  Part-Load  Efficiency  -  Variable  mass  ratio 
enabled  part-load  (cruise)  efficiency  gain  of  as  much  as 
100  percent. 
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II.   DUAL-PHASE  NOZZLE  THEORY 


The  flow  phenomenon  of  a  two-phase  mixture  has  been  ana- 
lyzed in  Reference  1.   It  is  repeated  as  follows.   The  problem 
is  illustrated  in  Figure  10 .   A  spatially  uniform  two-component 
mixture  of  liquid  drops  and  gas  enters  a  nozzle  at  high  pres- 
sure and  low  velocity  and  expands  to  low  pressure  and  high 
velocity.   The  objective  of  the  analysis  is  to  determine,  for 
a  specified  pressure  the  drop  diameter  D  and  the  tempera- 
tures T   and  TT  ,  velocities  V   and  VT  and  flow  rates  m   and 
g      L  g       L  g 

m.  of  the  gas  and  liquid  phases,  respectively,  at  each  station 


in  the  nozzle  given  the  initial  values  of  D,  T  , 


L 


V  V 


the  total  flow  rate,  and  the  properties  of  the  fluids 


j       U,  'v. 


m.Vs 


Figure  10 . 


Dual-Phase  Nozzle  Flow 
Geometry  S  Nomenclature 


The  five  relations  employed  to  compute  the  five  unknowns 
D,  T  ,  TT  ,  V  ,  and  VT  ,  are  (1)  the  momentum  equation  for  the 

o  o 

mixture,  (2)  the  energy  equation  for  the  mixture,  (3)  the 
drop  drag  equation,  (4)  the  drop  heat  transfer  equation,  and 
(5)  the  drop  breakup  criterion.   Solubility  and  vapor  pres- 
sure relations  provide  the  flow  rate  ratio  m  /m, . 

A.   ASSUMPTIONS 

The  assumptions  employed  in  the  two-component  analysis 
are  as  follows : 

1.  The  liquid  is  uniformly  dispersed  as  spherical  drops 
all  of  the  same  diameter. 

2 .  The  drops  break  up  to  limit  the  Weber  number  to  6 . 

3 .  There  are  no  external  forces  acting  on  the  two-phase 
mixture  other  than  pressure  and  wall  shear,  and 
there  is  no  heat  transfer  to  or  from  the  mixture. 

4.  The  flow  is  one-dimensional. 

5  .   The  drops  are  large  enough  for  the  surface  curvature 
to  have  negligible  effect  on  the  vapor  pressure  of 
the  liquid  and  for  the  surface  energy  to  be  negligible 

6.  The  drops  are  isothermal. 

7.  The  gas  mixture  obeys  the  additive-pressure  law. 

8.  The  partial  pressure  of  the  predominantly  liquid 
component  in  the  liquid  is  given  by  Raoult's  Law. 

9  .   The  concentration  of  the  predominantly  gaseous  com- 
ponent in  the  liquid  is  given  by  Henry's  Law. 
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10 .  The  volume  of  the  liquid  solution  is  equal  to  the 
sum  of  the  volumes  of  the  pure  liquids . 

Assumption  1  restricts  the  analysis  to  nozzles  having 
spatially  uniform  injection  of  the  liquid  into  the  gas  and 
operating  at  gas-to-liquid  volume  ratios  greater  than  unity. 

Assumption  2,  the  drop  breakup  criterion,  states  that  drop 

2 
diameter  is  limited  to  a  value  D  for  which  W   =  p  V   D/2 

e     g  g 

=  6 .   Thus 

12<r 


D-~  = 


P>v*  ( 1 ) 


where  p^  is  the  gas  density,  V   is  the  slip  velocity  V   -  V.  , 
and    is  the  Liquid  surface  tension.   The  form  of  Eq .  (1)  is 

physically  reasonable  in  that  the  Weber  number  is  propor- 

2 
tional  to  the  ratio  of  stagnation  pressure  o  V    /2  to  sur- 

o      J 

face  tension  pressure  47/D.   Hence,  a  drop  would  be  expected 
to  flatten  and  breakup   at  a  sufficiently  high  value  of  We . 
This  has  been  verified  experimentally  and  the  critical  Weber 
number  found  to  be  6 ,  within  a  factor  of  about  two.   An 
additional  restriction  is  that  for  actual  breakup  to  occur, 
the  time  spent  at  a  Weber  number  exceeding  5  must  be  longer 

than  the  natural  period  of  oscillation  of  the  drop, 

3     1/2 
ttCp^D  /   )    /4,  where  p   is  the  density  of  the  liquid. 

This  requirement  is  met  only  in  two-phase  nozzles  longer 

than  about  10  in.  and  Assumption  2  may  cause  the  analysis  to 

overestimate  the  exit  velocity  by  increasing  amounts  as  the 

nozzle  length  decreases  below  10  in. 
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Assumption  3  excludes  magnetohydrodynamic  and  mechanical 
body  forces.   The  exclusion  of  wall  heat  transfer  is  correct 
for  the  insulated  nozzles  of  interest  for  power  systems.   In 
addition,  the  relatively  high  velocity  results  in  short 
residence  lines  in  the  nozzle  proper. 

Assumption  4  is  closely  met  in  practical  nozzles  since 
good  performance  requires  small  wall  angles,  large  throat 
radius  of  curvature,  and  uniformly  distributed  injection  of 
the  fluids  at  the  nozzle  entrance . 

Assumption  5  is  valid  for  the  drop  sizes  of  0.001  to 
0.010  in.  produced  by  the  Eq.  (1)  breakup  criterion.   Assump- 
tion 6  is  valid  because  of  the  rapid  internal  circulation 
in  drops.   Assumption  7  introduces  negligible  error  in  most 
cases  of  practical  interest  since  the  vapor  pressure  of  the 
liquid  is  small  and  needs  only  to  be  evaluated  approximately. 

Assumptions  8,  9,  and  10  are  either  valid,  or  cause  little 
error,  for  fluids  of  low  miscibility,  which  are  the  fluids  of 
interest . 

3.   DERIVATION  OF  EQUATIONS  FOR  FREE-STREAM  FLOW 

1 .   Continuity 

Referring  to  Figure  1,  the  nozzle  flow  area  A  is 

equal  to  the  gas  flow  area  m  /p  V   plus  the  liquid  flow 

g      g    g    t  4 


area  mL/pT  V    .      Thus 


As^(*^+7^r) 


(2) 


where  r  is  the  mass  mixture  ratio  mT /m 


2 .   Momentum 

By  Assumption  3,  the  only  force  acting  on  the  free- 
stream  flow  is  that  due  to  the  pressure  gradient.   If  M  is 
the  momentum  flux  at  flow  area  A,  the  change  in  momentum 
flux  across  pressure  increment  dp  is 

dM  =  -Adp  (3) 

The  momentum  flux  can  be  written  as  the  sum  of  the 
momentum  fluxes  of  the  gas  and  liquid.   Thus, 

ft  =  m,V,  +  m.V, 

If  the  flew  were  allowed  to  continue  at  constant 
pressure,  V   and  VT  would  become  equal  to  each  other  at  the 
mass-weighted  mean  velocity  V.   Since  for  this  process, 
dM  =  0  ,  the  value  of  V  is  given  by 

(m,  +  rn«)V  =  m„V,  +  fhiV,  (  5  ) 

or 

v TTT^  (o) 

Thus ,  the  momentum  flux  can  be  written 

ft  =  (m,  +  m,)V 

Since  m   +  mT  is  constant,  the  change  in  momentum  flux  is 
g     L 

(  3) 
dM  -  (m,  +  m,)dV 

Substituting  Eqs .  (3)  and  (2)  into  Eq.  (3),  dV  can  be  written 

*  —  TT7(7?7+7^r)*       (9) 
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The  slip  ratio  is  defined  as 

,«vyv  =  (V,-v,)/v 


(10) 


This  equation  can  be  combined  with  Eq.  (6)  to  give  V   and 


VT  in  terms  of  V 

Li 


v,=(i--Hr7)v  =  *v 


(li) 


(12) 


(13) 


The  gas  density  can  be  expressed  as 

p,  -  W,p/RT, 

where  W   is  the  effective  molecular  weight  of  the  gas  mixture 

g  So 

and  R  is  the  universal  gas  constant.   Eq.  (13)  is  the  defini- 
tion of  the  effective  molecular  weight  W  ,  which  is  the 
quantity  that  gives  the  actual  gas  density  when  substituted 
in  Eq.  (13) . 

Substituting  Eqs  .  (11)  -  (13)  into  Eq.  O),  the  dif- 
ferential momentum  equation  is 


**-*--TT7($ST  +  £)* 


(14) 


The  quantities  a  and  b  are  slowly  varying  because  s  is 
typically  only  0.1  to  0.3  and  slowly  varying.   The  quanti- 
ties r,  T  ,  W   and  pT  are  also  slowly  varying.   Integrating 
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Eq.  (14)  over  a  pressure  increment  Ap,  for  which  a,  b,  r, 


W 


,  and  pT  are  constant  to  within  the  desired  accuracy, 


-2  . 

the  change  in  v   is 


AT*  -       2    (    RT9"     }M     g  +  AP/2  J.  f^P    \ 


(15) 


All  quantities  other  than  pressure  can  be  taken  outside  the 
integral  and  evaluated  at  their  mean  values  (denoted  by  sub 
script  m)  corresponding  to  the  mid-interval  pressure  p.   Thus 


—        2 
AV>=  - 


1  +  %. 


a»w^  /  .„    p     o-p« 


-4  "-HF- 


(16) 


Performing  the  integrations 
AV*  = 


J  ^   1  +  r  V  flW,p  +  &p,  )  dp 


(17) 


Equation  (17)  is  the  final  form  of  the  momentum  equation. 
3 ,   Energy 

The  enthalpy  change  of  the  mixture  between  state  1 
(the  beginning  of  pressure  interval  Ap)  and  state  2  (the  end 
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aHx 


of  the  interval)  can  be  evaluated  in  two  steps:   (1)  phase 

change  at  p1,  T   ,  TL   and  (2)  change  to  p2,  Ta2 ,  TL2 ,  at 

fixed  composition. 

The  enthalpy  change  for  step  1  is 

enthalpy  required 

amount  of  A  to  vaporize  and 

=     vaporized  X        heat  unit  mass  of 

A  from  TT  to  T  T 
L      gL 

amount  of  B  enthalpy  required 

i-     vaporized  X         to  vaporize  and 

heat  unit  mass  of 
3  from  T    to  T 

Ll      gl 

kinetic  energy 
amount  of  A  required  to 

i-     and  3  X         accelerate  unit 

mass  from  VT   to 
V  Ll 

§1 


or 


AH,  =  (m^  -  magi)  [L^  +  c^  (T9l  -  7\)] 
+  (m,2-«0(Vji-V?i)/2 


(18) 


where  L  and  c  are  latent  heat  and  specific  heat,  respectively 
Introducing  more  compact  notation. 

(19) 

The  enthalpy  change  for  step  2  is  evaluated  from  the 
temperature,  pressure,  and  velocity  changes,  with  properties 
evaluated  at  mean  T  and  p  for  the  interval. 
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AH,  -  m„  [c,m(T,t  -  T#1)  +  4-  (V;a  -  V*,)] 

+  |(vL-vf1)] 


(20) 


(21) 


By  Assumption  3,  no  work  is  done  by  the  free-stream  flow 
and  no  heat  is  transferred  to  it.   Hence, 

AH,  +  Atf,  =  0 

Substituting  Eqs .  (19)  and  (21)  into  Eq.  (22)  and 
solving  for  AT   gives  the  energy  equation  for  the  mixture: 


(23) 


4 .   Drag 

Although  no  force  other  than  pressure  acts  on  the 
free-stream  flow  as  a  whole,  a  drag  force  exists  between 
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the  phases.   Hence,  a  second  momentum  equation  must  be 
witten  using  as  the  control  volume  the  boundary  between 
the  phases . 

The  two  forces  acting  on  each  liquid  drop  are  the 
buoyancy  due  to  the  pressure  gradient  and  the  drag  due  to 
the  relative  gas  velocity.   The  sum  of  these  is  equal  to 
the  mass  times  the  acceleration  of  the  drop.   Thus,  for  a 
single  drop. 


dynamic  pressure  of       drag  frontal  area 

relative  gas  flow     X    coefficient   X    of  droD 


volume 
of  drop 


X 


pressure 
gradient 


mass 
drop  drop 


X 


acceleration 
of    drop 


or 


/I        iv  \xr  \  r     *D*        *D*    d? 


(24) 


The  absolute  value  sign  in  the  first  term  makes  the 
drag  force  positive  when  V   >  VT  and  negative  when  V   <  V, 
Solving  Eq.  (24)  for  dVL, 


L 


dVl  -  4PiVtD  piV, 


(25) 
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Differentiating  Eq .  (12),   dV,  can  also  be  expressed  in 
terms  of  s,  r,  and  V.   Thus, 


-  r  sd  r  ds    ~\ 

dvt  =  bdv  +  v  [^f+Tjr  "  TTTJ 


(26) 


Solving    for   ds , 

b  (I  4-  r)  dV  sdr  (1  -I-  r)  dV, 

* ^  1  +  r  V  (27) 

Substituting  dV.  from  Eq .  (25),  noting  that  dV  = 

—2   — 
dV  /2V,  using  Eq.  (12),  and  writing  for  a  finite  increment, 


results  in, 


bm  (1  4-  rm)  A  V    (1  4-  rm)  Ap     ^Ar 

Af  =       _ +        —  "i — : — : 

w  "  "  (2  8) 

Ab^JD 


This  is  the  drag  equation  employed  when  x  is  specified 
as  a  function  of  p . 

Solving  Eq .  (2  3)  for  A  x  yields  the  required  alter- 
native equation: 

**  ~  ■■>_   ,  :  , 7T^=T     ±P   +  5 


A- 


3p,w  J  *„  |  smC0n 


+  -T+7T-(tT^-A5)J 
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5 .   Heat  Transfer 

Although  no  heat  is  transferred  to  the  mixture  as  a 
whole,  heat  transfer  exists  between  the  phases.   Hence,  a 
second  energy  equation  must  be  written  using  as  the  control 
volume  the  boundary  between  the  phases . 

The  work  dW  done  on  the  liquid  is  that  due  to  drag 
by  the  gas.   (Only  work  done  by  shear  or  shaft  forces  is 
included  in  dW  when  writing  the  First  Law  for  a  control 

volume).   Multiplying  Eq .  (24)  by  the  number  flow  rate  of 

3 
drops  N  =  6itu  /ttD  pt  ,  the  drag  force  Fj  on  that  quantity  of 

liquid  is 


The  work  done  on  rhe  liquid  is 

dvy 


.  /dp  ^^N 


(31) 


The  heat  dQ  transferred  from  the  liquid  is  made  up  of 
two  parts:   (1)  the  convective  cooling  due  to  the  temperature 
difference  between  the  liquid  and  gas  and  (2)  the  evaporative 
cooling  due  to  the  latent  heat  supplied  to  the  liquid  vaporized 
The  convective  cooling  is 

-dQe  =  hA^iT,  -  T,)dl 

(32) 


.     .  2  . 

where   h    is    the    heat-transfer    coefficient,    A,    =    ttD  is    the 

surface    area   of    a    drop,    and   dt    =    dx/VT     is    the    time  required 
to    traverse    dx.       Thus, 


-dQ.  -  g*£i&  ~  life  (33) 


The    evaporative    cooling    is 

-dQ,  =  L.^,  +  L>dm>9  (  3  u  ) 

The  change  is  enthalpy  of  the  liquid  over  the  pressure 
increment  dp  is 

m  =  A,  (ccfT,  +  %  -  41)  (35) 

Substituting  Eqs .  (31),  (33),  (34),  and  (35)  into  the 
steady-flow  energy  equation  dQ  -  dW  =  dH ,  the  result  is 

3ffi£-u**-><4+.-***r.  (36) 

where  5T  =  T   -  TT  . 

g     L 

Writing  for  a  finite  interval,  the  final  form  of  the 
drop  heat-transfer  equation  is 


1    r  6h8mTAX         r       *™°,        r       A*">,1 

AT?    =  -K TT ^"m  —■ ^m  —Z 


(37) 
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Equations  (1),  (17),  (23),  (23),  and  (37)  are  the  five 

equations  that  must  be  solved  simultaneously  to  obtain  the 

values  of  the  five  dependent  variables  D ,  T  ,  TT  ,  V  ,  and 

f  g >   L'   g 

V,  as  a  function  of  the  independent  variable  p.   To  carry  out 
the  solution  all  quantities  in  the  equations  must  be  expressed 
in  terms  of  these  six  variables. 

C.   WALL  SHEAR  AND  BOUNDARY  LAYER 

For  a  two-phase  nozzle,  the  momentum  flux  of  the  friction- 
less  nozzle  flow  is  that  given  by 

M  =  rh,V 

The  mean  mixture  density  corresponding  to  the  mean  velocity 
V  is 


/  -  3l  =  pl 

P   "  AV  "   1  +  ra 


(38) 


where  r   is  the  ratio  of  gas  flow  area  to  liauid  flow  area 

3. 
—         5  o 

From  the  definition  of  the  momentum  thickness,  the  value 

of  9  at  a  station  where  the  nozzle  wall  radius  is  y   is 

J  o 


given   by 


tit  -  til,  =  2my0d  ^—  =  2iry0p'Vze 


(39) 


where  Mc  is  the  momentum  flux  of  the  real  flow  with  friction 
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The  skin-friction  coefficient  can  be  defined  using  the  same 
quantities  as  single-phase  flow 

r  -    2r« 


where  t,,  is  the  wall  shear.   It  will  be  shown  that  a  valid 
Cr  value  can  be  provided. 

The  boundary-layer  momentum  equation  then  becomes 


C<    A 


(41) 


,[i±f-ldv  +  -L^  +  J-^] 


where  5*  is  the  displacement  thickness,  i.e.,  the  distance 
the  wall  must  be  moved  outward  to  give  the  same  flow  rate 
as  with  frictionless  flow. 

Assuming  a  5  power  velocity  profile  and  no  density  vari 
ation,  the  shape  factor  5:':/9  is  obtained  from 


f5  [1  -  (y/8H  dy 

[6  (y/S)"7  [1  -  (y/sn  dy 


where  5  is  the  velocity  thickness  of  the  boundary  layer. 

Noting  that  dV  can  be  written  dV  /2V,  and  that  d(p'V)  = 
ddn^/A)  ,  the  finite-difference  form  of  Eq .  (M-l)  is 

C        /  8        1       1 
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Wall  shear  in  homogeneous  two-phase  flow  has  been  found 
to  be  equal  to  that  which  would  exist  with  pure  liquid  at 
equal  velocity  and  boundary-layer  thickness,  multiplied  by 
the  wetted  wall  fraction: 


_  Cf,  At        CflpiV] 

r«-^P,V-,-=JJ—7L  W) 


where  C~   is  the  skin  friction  coefficient  for  liquid  at  a 
rl 

Reynolds  number  of 


For  a  1/7-power  profile,  the  velocity  thickness 

72 


A  convenient  relation  for  C^   as  a  function  of  R„  is  the 

fl  ° 

Shultz-Grunow  relation  which  can  be  written 


0.208 


(log10  R*  +  0.425)258 


Comparison  of  Eqs .  C  4 0 )  and  (42)  shows  that  Cf  can  be 


written 


c<  =  7^<. 


Thus,  the  final  form  of  the  boundary-layer  momentum 
equation  is 
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Let  Vo  be  the  mean  velocity  of  the  flow  including  the 
boundary  layer.   Then,  from  Eq .  (39), 

rh,V6  =  Mf=  mtV  -  2ry„p*V2e 

Hence,  employing  Eq .  (38),  the  mean  exit  velocity  includ- 
ing the  boundary  layer  is 

By  the  definition  of  the  displacement  thickness,  the  flow 
rate  is  reduced  by  the  throat  displacement  thickness  5*  to 

/    28? 
rru,  =  rht  1  1    — 

\  ifo, 


D.   NOZZLE  THEORY  SUMMARY 

The  preceding  equations  form  the  basis  for  the  mathematical 
model  which  is  used  to  predict,  based  on  inlet  conditions,  the 
exit  velocity,  and  temperature  of  the  mixture.   These  equations 
also  form  the  basis  for  the  model  which  provides  the  optimum 
nozzle  shape  given  a  set  of  inlet  conditions.   Some  additional 
relationships  are,  however,  required.   These  are: 

1.   Phase  properties  -  to  establish  the  mass  ratio,  mass 

flow  rate  ratio  of  gas  to  liquid,  and  the  thermal 

conductivity  of  the  mixture . 
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2.  Liquid  drop  drag  coefficients. 

3.  The  liquid  drop  heat  transfer  coefficients. 

4.  Boundary  layer  momentum  thickness  and  displacement 
thickness . 

5.  Skin  friction  coefficient. 

These  five  additional  relationships  are  developed  in  detail 
in  Reference  [1]. 


III.   COMPUTER  PROGRAM  DUAL-PHASE  NOZZLE 

The  computer  program  employed  in  this  study  is  based  on 
a  program  developed  by  Dr.  G.  Elliott  of  the  Jet  Propulsion 
Laboratory  in  Pasadena,  California.  The  program  was  updated 
and  converted  for  use  on  the  Naval  Postgraduate  School 
computer.   The  Dual-Phase  Two-Component  program  employs  the 
theory  in  Section  II .   The  program  is  written  in  Fortran 
computer  language  and  can  be  compiled  using  a  Watfiv  or  For- 
tran IV  compiler. 

This  program  has  been  utilized  in  dual-phase  nozzle 
analysis  and  to  provide  values  for  comparison  with  the  ex- 
perimental results.   To  use  the  computer  program  the  inlet 
conditions  have  to  be  specified.   The  flow  conditions  are: 
inlet  pressure;  mass  ratio;  inlet  temperature  of  the  gas  and 
liquid;  inlet  velocity  of  the  gas  and  liquid;  total  mass  flow 
rate;  and  nozzle  exit  pressure.   Section  III  B,  shows  speci- 
fied details  for  data  input. 

There  are  two  options  that  can  be  chosen.   The  first  is 
prescribed  pressure-versus-distance  option  MOP=0 .   The  pres- 
sure profile  PCX)  is  selected  corresponding  to  the  adopted 
nozzle  contour.   If  the  pressure-versus-distance  is  used  a 
PCX)  input  table  is  required.   This  profile  is  developed 
from  the  actual  measured  pressure  values  in  the  experiments . 
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(See  Appendix  A  for  sample  program.)  The  second  option  con- 
sist of  an  optimum  nozzle  contour  option  M0P=1.  This  option 
is  useful  only  when  the  liquid  drop  diameter  is  constant. 

The  dual-phase  two-component  computer  program  is  a  struc- 
tured program  with  thirteen  subroutines  controlled  by  a  main 
program.   This  arrangement  improved  the  programming  process 
through  better  organization  and  programming  notation. 

The  control  point  of  the  dual-phase  two-component  com- 
puter program  is  the  "main  section."   It  controls  the  flow 
path  and  operation  of  all  input  data,  property  tables,  and 
calculations.   It  accomplishes  this  by  calling  the  thirteen 
subroutines  at  the  appropriate  times,  saving  wanted  data 
in  files,  and  printing  out  desired  information. 

One  of  the  most  important  subroutines  which  inputs  in- 
formation is  the  "INTRP"  subroutines.   INTRP  controls  the 
property  table  inputs.   It  reads  in  four  two-dimensional 
tables  and  fourteen  one-dimensional  tables.   These  inputs 
are  the  properties  of  the  gas  and  liquid  phases  of  both 
components  of  the  flow  in  the  nozzle  .   The  subroutine  writes 
the  values  of  these  tables  into  a  file  and  retrieves  appro- 
priate values  from  that  file  .    INTRP  can  also  interpolate 
for  values  used  throughout  the  entire  program. 

Input  of  case  data  is  controlled  by  subroutine  "Sect  1." 
Identification  information  and  case  heading  information  is 
read  and  printed  for  each  instance. Sect  1  also  places  the 
pressure  vs.  distance  profile,  if  specified,  in  an  array. 
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"Sect  2"  through  "Sect  6"  are  the  subroutines  which  cal- 
culates the  flow  data.   Sect  2  sets  the  initial  conditions 
indicated  in  the  input,  and  begins  the  iterations.   Sect  3 
computes  initial  flow  rates  of  both  components ;  the  initial 
area  of  the  nozzle;  slip  velocity;  mean  free  stream  velocity; 
and  slip  friction.   Sect  4  computes  the  changes  in  flow  par- 
ameters and  new  distances .   It  then  begins  to  calculate  new 
conditions  such  as  flow  rate,  temperature,  velocities,  sur- 
face tension  and  mean  area.   Sect  5  is  the  binary  cut  con- 
vergence routine  and  computes  mean  boundary-layer  parameters . 

If  a  problem  is  diagnosed  in  any  subroutines  and  "diagno" 
is  called,  it  will  print  all  output  parameters  calculated  to 
that  point.   It  also  does  the  same  if  there  is  a  convergence 
problem. 

There  are  two  subroutines  that  output  calculated  data, 
subroutine  "Write"  and  subroutine  "Output."   Subroutine 
"Write"  will  send  output  information  to  the  printer  for  a 
hard  paper  copy.   Subroutine  "Output"  reads  and  stores  the 
output  on  a  file . 

The  two-phase  two-component  program  has  been  written 
with  comment  statements  in  the  text  of  the  program.   These 
will  allow  for  a  more  understandable  and,  therefore,  a  more 
easily  modified  program.   For  specific  details  on  the  content 
of  these  subroutines,  see  Appendix  M. 

The  dual-phase  nozzle  program  was  tested  for  correct 
output.   Sample  data  and  results  were  obtained  from 
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Dr.  David  Elliott,  were  inputted  into  the  program,  and 
executed.   The  output  was  compared  to  the  sample  data.   The 
program  produced  duplicate  results . 

The  program  begins  by  storing  fluid  property  tables  and 
reading  in  all  input  data.   All  nozzle  inlet  conditions  are 
computed.   The  program  then  proceedshalf  a  pressure  step  at 
a  time.   At  the  middle  of  each  pressure  interval,  the  changes 
in  quantities  across  the  interval  are  computed  using  the  pro- 
perties interpolated  from  the  table  for  that  pressure,  and 
for  the  existing  temperature.   The  change  in  slip  is  found 
if  the  pressure  profile  PCX)  is  specified.   At  the  end  of 
each  pressure  step,  the  flow  conditions  are  updated  and 
initial  conditions  are  determined  for  the  next  step.   The 
dropsize  is  reduced  at  the  point  when  the  Weber  number  ex- 
ceeds six.   The  flow  conditions  are  printed  if  the  pressure 
is  one  selected  for  output .   The  computation  continues  until 
the  last  pressure  step  has  been  completed  and  flow  conditions 
at  the  smallest  flow  area  encountered  are  printed  as  the 
Throat  conditions . 

A.   PROPERTY  TABLES 

1.   Heat  capacity  of  component  "A"  vapor  in  3TU/LBM-R 
is  a  function  of  temperature  and  pressure .   The  two-dimen- 
sional tables  are  entered  row-wise.   At  least  two  cards  are 
necessary  to  specify  a  row  and  at  least  two  rows  must  be 
entered . 
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Card  1:   (format  6E12.6) 
cols  . 

1-12  temperature  (R) 

13-24=1.0  if  this  is  the  last  temp  for 
this  table 
Card  2:   (format  6E12.6) 
cols  . 

1-12  pressure  (psi) 
13-24  heat  capacity  (BTU/LBM-R) 
2  5-36  pressure  (psi) 
37-48  heat  capacity  (3TU/LBM-R) 
49-60  pressure  (psi) 
61-72  heat  capacity  (3TU/LBM-R) 
The  maximum  entries  of  temperature  are  35  values.   For 
each  value  of  temperature ,  the  maximum  number  of  entries  of 
pressure  and  heat  capacities  are  35  values .   Each  row  of  this 
table  will  be  terminated  with  the  pressure  and  heat  capacity 
equal  to  10  .   These  two  values  are  not  counted  in  the  maxi- 
mum of  35  entries/rows  allowed. 

The  program  shown  in  Appendix  B  can  be  used  to  determine 
the  values  of  heat  capacities  .   The  program  structures  its 
output  in  The  format  needed  for  the  table  input.   It  uses 
input  data  obtained  from  Reference  3.   The  input  data  must 
be  placed  in  a  two-dimensional  table.   This  table  is  used 
in  the  program  to  interpolate  the  values  needed  for  output. 
Input  data  must  be  formatted  as  follows : 

47 


Card  1-16  (format  10F7.4) 
cols  . 

1-7  temperature  (R) 

at  this  temp  the  following  is  entered: 

8-14  heat  capacity  at  .01  P 

15-21  heat  capacity  at  .4  Pa 

22-28  heat  capacity  at  . 7  Pa 

29-35  heat  capacity  at  1.0  Pa 

34-42  heat  capacity  at  4.0  Pa 

43-49  heat  capacity  at  7.0  Pa 

50-56  heat  capacity  at  10.0  Pa 

57-63  heat  capacity  at  40.0  Pa 

64-70  heat  capacity  at  70.0  Pa 

The  temperature  must  be  entered  with 

increasing  value . 

2.  Heat  capacity  of  component  "B"  gas,  3TU/LBM-R  is  a 
function  of  temperature  and  pressure.   This  two-dimensional 
table  has  the  same  format  as  part  Al  above . 

3.  Molecular  weight  of  component  "A"  vapor  is  a  func- 
tion of  temperature  and  pressure.   The  two-dimensional 
tables  are  entered  row-wise.   At  least  two  cards  are  neces- 
sary to  specify  a  row  and  at  least  two  rows  must  be  entered 

Card  1:   (format  6E12 .6) 
cols  . 

1-12  temperature  (R) 
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13-24=1.0  if  this  is  the  last  temp  for 

this  table 
Card  2:   (format  6E12.6) 
cols  . 

1-12  pressure  (psi) 

13-2  4  molecular  weight 

2  5-36  pressure  (psi) 

37-48  molecular  weight 

49-60  pressure  (psi) 

61-72  molecular  weight 
The  maximum  number  entries  of  temperature  are  35  values 
For  each  value  of  temperature,  the  maximum  entries  of  pres- 
sure and  molecular  weight  are  35  values .   Each  row  of  this 
table  will  be  terminated  with  the  pressure  and  molecular 
weight  equal  to  10  .   These  two  values  are  not  counted  in 
the  maximum  of  35  entries/rows  allowed. 

The  program  shown  in  Appendix  C  can  be  used  to  deter- 
mine the  values  of  molecular  weight.   The  program  formats 
its  output  in  the  format  needed  for  the  table  input  of 
the  two-component  two-phase  computer  program.   It  uses 
input  data  obtained  from  Reference  3 .   The  input  data 
must  be  placed  in  a  two-dimensional  table.   This  table 
is  used  in  the  program  to  interpolate  the  values  needed 
for  output.   The  program  used  in  Figure  3  can  only  be  used 
with  ideal  gases.   Input  data  must  be  formatted  as  follows: 
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Card  1-16  (format  10F7.4) 
cols  . 

1-7  temperature  (R) 

at  this  temp  the  following  is  entered: 

8-14  density  at  .01  P 

15-21  density  at  .4  Pa 

22-28  density  at  . 7  Pa 

29-35  density  at  1.0  Pa 

34-42  density  at  4.0  Pa 

43-49  density  at  7.0  Pa 

50-56  density  at  10.1  Pa 

57-63  density  at  40.0  Pa 

64-70  density  at  70.0  Pa 

The  temperatures  must  be  entered  with 

increasing  value. 

4.  Molecular  weight  of  component  "3"  gas  is  a  function 
of  temperature  and  pressure .   This  two-dimensional  table 
has  the  same  format  as  part  A3  above. 

5.  There  are  fourteen  cne-dimensional  tables.   The 
one-dimensional  tables  are  entered  in  the  following  format 
(for  Z(T)) : 

Card  1:   (format  6E12.6) 
cols  . 

1-12  Ti-2,  oR 
13-24  Ti-2 
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25-36  Ti-1 

37-43  Zi-01 

49-60  Ti 

61-72  Zi  and  Tj-1  <  Tj 


2  <  i  <  50 


for 


2  <  j  <  50 


Each  table  is  terminated  by  two  consecutive  entries  of 
105,  i.e.,  Tk  E  Zk  E  105  (1.0E5  right  adjusted  in  the  field) 
The  fourteen  one-dimensional  tables  are  (in  order  requested) 

1.  CAL(T)    heat  capacity  of  component  A  liquid, 
BTU/LBM  oR 

2.  CBL(T)    heat  capacity  of  component  B  liquid, 
BTU/L3M  oR 

3.  LA(T)     latent  heat  of  vaporization  for  com- 
ponent A,  3TU/LBM 

4.  LB(T)     latent  heat  of  vaporization  for  com- 
ponent 3,  BTU/LBM 

5.  PBO(T)    vapor  pressure  of  component  3 

6.  ROAL(T)   density  of  liquid  component  A, 
L3M/FT3 

7.  ROBL(T)   density  of  liquid  component  B, 
L3M/FT3 

3.    KAG(T)    thermal  conductivity  of  component 

A  gas,  BTU/FT  HR  oR 
3.    KBG(T)    thermal  conductivity  of  component 


3  gas ,  3TU/FT  HR  oR 


10.  VIAL(T)   viscosity  of  liquid  component  A, 
LBM/FT  HR 

11.  VIBL(T)   viscosity  of  liquid  component  B, 
LBM/FT  HR 

12.  VIAG(T)   viscosity  of  gas  component  A, 
LBM/FT  HR 

13.  VIBG(T)   viscosity  of  gas  component  B, 
LBM/FT  HR 

14.  SIG(T)    surface  tension  of  liquid  component 
B,  DYNE/CM 

Appendix  D  gives  sample  property  table  for  input. 

3.   CASE  INPUT 

A  blank  card  must  separate  the  property  table  from  the 
data  set  decks  following. 

Card  1:   (format  4A4  ,  A2 ,  3A4 ,  7A4 ,  A32 ,  216) 
cols  . 

1-18  date 

19-30  case  number,  may  be  any 

alphanumeric  data 

31-60  identification 

51-65  MS,  number  of  pressure  steps  per 

printout 

(right  justified  integer)."  Use  -1  if  new 

property  tables  follows  . 

5  7-72  .MP,  number  of  printouts  (right 

justified) 
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Card  2:   (All  integers  right  justified  in  field) 
(format  1116) 
cols  . 

1-6  MBU,  =0  constant  droplet  size,  =1  drop 

breakup 

7-12  MOP,  =0  X(P)  table  to  be  supplied,  =1 

X(P)  is  to  be  optimized 

13-18  MGEO,  =0  circular,  =1  annular 

19-24  NDS ,  maximum  number  of  S  iterations 

2  5-30  MSO,  maximum  number  of  So  iterations 

31-36  NB ,  maximum  number  of  TB  iterations 

37-42  NNS ,  first  setting  of  step  counter 

Card  3:   (format  5E12.6) 
cols  . 

1-12  DP,  pressure  step  size,  negative  for 

decreasing,  psi 

13-24  RC ,  mass  flow  ratio 

25-36  PHI,  angle  of  annular  nozzle  axis,  de: 

37-4  8  RAXO ,  annular  nozzle  axis,  in. 

49-60  EMT,  total  flow  rate  *P  final  =  PO  + 

(NS*NP-NNS-1) *DP+DP1 

Card  4:   (format  6E12.5) 
cols  . 

1-12  H,  inverse  Henry's  Law  constant,  psi 
13-24  ALAM,  Lagrangian  multiplier 
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25-26  DPL,  first  pressure  step  size 
3  7-4  8  WAL,  molecular  weight  of  liquid  a 
49-60  WBL,  molecular  weight  of  liquid  b 
61-72  SA,  Sutherland  constant  for  component 
A,  oR 

Card  5:   (format  6E12.6) 
cols  . 

1-12  SB,  Sutherland  constant  for  component 

3,  oR 

13-24  DO,  initial  drop  diameter,  in. 

25-36  PO ,  initial  pressure,  psia 

37-48  TGO ,  initial  gas  temperature,  oR 

49-60  TLO,  initial  liquid  tempeature ,  oR 

61-72  VGO,  initial  gas  velocity,  FT/S 

Card  6 :   (format  6E12  .6) 
cols  . 

1-12  VLC,  Initial  liquid  velocity,  FT/S 

13-24  THOO ,  initial  momentum  thickness  of 

outer  wall  boundary  layer,  in. 

25-36  THIO,  initial  momentum  thickness  of 

inner  wall  boundary  layer,  in. 

37-48  EDS,  convergence  criterion  for  S 

49-60  ESO,  convergence  criterion  for  So 

51-72  E3 ,  convergence  criterion  for  T,  oR 

If  MOP=0 ,  the  following  cards  are  present: 

in  10  Card  7:  (format  7A4 ,  A2)  cols. 
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1-30  X(P)  table  identification  (and 

alphanumeric   data) . 
Card  8:   (format  6E12.6) 
cols  . 

1-12  pressure,  pi-2 ,  psia 

13-24  distance,  xi-2,  in. 

25-36  pressure,  pi-1       3  <_  i    75 

37-48  distance,  xi-1 

49-60  pressure,  pi 

61-72  distance,  xi 
The  last  two  entries  are  1.0E5  and  1.0E5  right  adjusted 
in  their  fields.   The  table  must  be  monotonic  increasing  or 
decreasing.   New  property  tables  may  be  used  by  putting  -1 
in  cols.  61-66  of  Card  1,  and  following  this  with  new 
property  tables  and  data  sets  .   Appendix  E  is  a  sample 
input  data. 

C .   OUTPUT 

For  each  case,  the  case  identification  is  printed  followed 

by  the  input  parameters.   If  M0P=0 ,  the  X(P)  table  forms  a 

part  of  this  output.   The  following  output  then  appears. 

1 .  X  distance ,  in . 

2.  P  pressure,  psia 

3.  R  mass  flow  ratio 

4.  vb  mean  free-stream  velocity,  ft/s 

5.  a  flow  area,  in.  2 
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6. 

tb 

7. 

tl 

8. 

vg 

9. 

vl 

10  . 

vs 

11. 

s 

12. 

d 

13. 

rv 

14. 

ra 

15  . 

alpha 

gas  temperature,  or 

liquid  temperature,  or 

gas  velocity,  ft/s 

liquid  velocity,  ft/s 

slip  velocity  vg-vl ,  ft/s 

slip  fraction  vs/vb 

drop  diameter,  in. 

ratio  of  gas  volume  flow  to  liquid  volume  flow 

ratio  of  gas  flow  area  to  liquid  flow  area 

mass  fraction  of  component  a  dissolved  in 

liquid 

16 .  beta    mass  fraction  of  component  b  vapor  in  gas 

17.  mg      gas  flow  rate,  lbm/s 

18.  ml      liquid  flow  rate,  lbm/s 

19.  rog     gas  density,  lbm/ft3 

20.  rcl     liquid  density,  lbm/ft3 

21.  wag     molecular  weight  of  component  a  gas 

22.  wbg     molecular  weight  of  component  b  gas 

23.  wg     mean  molecular  weight  of  gas 

2U.  pa      partial  pressure  of  component  a,  psia 

25.  pb      partial  pressure  of  component  b,  psia 

26.  la      latent  heat  of  vaporization  of  component  a, 

btu/lbm 

27.  lb      latent  heat  of  vaporization  of  component  b, 

bTu/lbm 
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28.  sigma  liquid  surface  tension,  dyne/cm 

29.  cgm  specific  heat  of  gas  (at  midpoint  of  pressure 

step)  ,  btu/lbm  of 

30.  elm  specific  heat  of  liquid,  btu/lbm  of 

31.  vigm  viscosity  of  liquid,  lbm/ft  hr 

32.  vilm  viscosity  of  gas,  lbm/ft  hr 

33.  kgm  thermal  conductivity  of  gas,  btu/hr  ft  of 

34.  rem  reynolds  number  of  flow  over  drops 

35.  cdm  drag  coefficient  of  drops 

36.  hm  heat  transfer  coefficient  of  drops, 

btu/hr  ft2 

37.  rb  mass  flow  ratio  after  velocity  and  temperature 

equalization 

38.  ab  flow  area  after  equalization,  in.  2 

39.  tb  temperature  after  equalization,  or 
40  .  rvb  volume  flow  ratio  after  equalization 

41.  alphb  alpha  after  equalization 

42 .  betab  beta  after  equalization 

43.  mgb  gas  flow  rate  after  equalization,  Ibm/s 

4M- .  mlb  liquid  flow  rate  after  equalization,  Ibm/s 


45 .  vilb    liquid  viscosity  after  equalization 


lbm/ft  hr 

46.  rogb    gas  density  after  equalization,  lbm/ft3 

47.  rolb    liquid  density  after  equalization,  lbm/ft 3 
u8.  wagb    molecular  weight  of  component  a  gas  after 

eq  ualization 
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49 .  wbgb    molecular  weight  of  component  b  gas  after 

equalization 

50 .  wgb     mean  molecular  weight  of  gas  after  equalization 

51.  pab     partial  pressure  of  component  a  gas  after 

equalization,  psia 

52.  pbb     partial  pressure  of  component  b  gas  after 

equalization,  psia 

53.  g      separator  friction  parameter 
5M-.  ref     separator  film  reynolds  number 

55.  yo      distance  from  nozzle  axis  to  outer  wall,  in. 

56.  worn    angle  of  outer  wall  relative  to  axis,  deg 

57.  tho     momentum  thickness  of  outer  boundary  layer,  in. 

58.  delo    velocity  thickness  of  outer  boundary  layer,  in. 

59.  delso   displacement  thickness  of  outer  boundary  layer, 

in . 

60.  redom   reynolds  number  of  outer  boundary  layer 

61.  cfom    skin  friction  coefficient  of  outer  boundary 

layer 

62.  twom    shear  stress  on  outer  wall,  psi 

63.  vbd    mean  velocity  including  boundary  layer,  ft/s 

64.  wim     angle  of  inner  wall  relative  to  axis,  deg 

55.  thi     momentum  thickness  of  inner  boundary  layer,  in. 

66.  deli    velocity  thickness  of  inner  boundary  layer,  in. 

67.  delsi   displacement  thickness  of  inner  boundary 

layer,  in. 
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68.  redim   reynolds  number  of  inner  boundary  layer 

69 .  cfim   skin  friction  coefficient  of  inner  boundary 

layer 

70.  twin    shear  stress  on  inner  wall,  psi 

71.  nna     number  of  iterations  required  to  optimize  X(P) 

72 .  nis     number  of  iterations  required  to  converge  en 

s  or  so 

73.  nib     number  of  iterations  required  to  converge  on 

tb 
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IV.   EXPERIMENTAL  SYSTEM 

The  experimental  system  can  be  grouped  into  three  sub- 
systems.  These  are: 

a)  nozzle 

b)  air  supply  system 

c)  liquid  injection  system 

Each  subsystem  is  described  in  the  following  sections . 
Figure  11  is  an  overall  system  schematic. 

A.   NOZZLE 

The  nozzle  has  a  convergent-divergent  flow  passage.   It 
is  12  inches  long  with  a  variable  exit" area.   The  exit  area 
can  be  varied  from  .45313  square  inches  to  .34375  square 
inches .   The  pivot  point  is  located  1  inch  above  the  throat . 
This  causes  the  throat  to  vary  when  the  exit  is  varied. 
Since  the  change  in  the  throat  is  negligible,  it  will  be  con- 
sidered to  be  constant.   It  has  a  throat  area  of  .45  square 
inches.   The  inlet  area  is  1.6  25  square  inches.   The  throat 
is  located  4  inches  from  the  inlet.   The  nozzle  is  constructed 
by  sandwiching  two  1/2  inche  thick  machined  aluminum  nozzle 
profile  plates  between  1/2  inch  plexiglas  plates  (Fig.  12). 
The  aluminum  nozzle  plates  are  located  at  the  end  of  a  30 
inch  long  entry  section  and  are  easily  adjustable.   Figure 
13  shows  a  close  up  of  the  aluminum  section  of  the  nozzle. 
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Figure  13.   Nozzle  Geometry  Schematic 
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The  inlet  section  provides  the  necessary  space  for  pressure 
taps,  liquid  injection  tubes,  and  other  instrumentation  and 
configuration  options . 

B.  AIR  SYSTEM 

The  air  system  is  shown  in  Figure  14 .   Two  117  cubic 
feet  tanks  supplied  with  compressed  air  from  an  Ingersol 
Rand  two-stage  air  compressor  provides  the  air  storage  vol- 
ume required  to  support  the  nozzle's  operation.   Each  stor- 
age tank  has  a  pneumatically  control  Norgren  gate  valve  at 
its  exit.   These  valves  are  operated  by  a  nitrogen  actuator 
and  controlled  by  a  pressure  regulator.   The  nitrogen  is 
regulated  to  40  psi  control  pressure  which  will  open  the 
Norgren  valve . 

The  nozzle  is  supplied  with  air  via  a  3"  i.d.  pipe.   The 
air  supply  to  the  nozzle  is  controlled  by  a  solenoid  actuated 
nitrogen  operated  3  inch  ball  valve .   The  nitrogen  is  sup- 
plied via  a  regulator.   By  varying  the  nitrogen  supply  pres- 
sure to  the  ball  valve,  supply  air  pressure  to  the  nozzle 
can  be  controlled.   Air  flow  to  the  nozzle  is  measured  with 
a  standard  ASME  orifice  plate.   Figure  15  shows  the  dimen- 
sions of  the  orifice.   The  orifice  is  a  model  D-10512  with 
a  0.9  20  inch  bore . 

C.  LIQUID  INJECTION  SYSTEM 

The  liquid  injection  system,  Figure  15,  is  supplied  by 
house  water  and  is  further  pressurized  by  an  Aurora  electric 
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pump  model/type  317696.   The  pump  is  rated  at  50  gallons  per 
min .   The  pump  supplies  pressurized  water  to  the  injection 
tube  via  two  flowmeters  ( rotometers ) .   The  flowmeters  are 
FSP  co.  precision  bore  flowrator  tubes.   One  rotometer  is 
rated  at  1  to  12  gallons  per  min.  and  the  other  at  .6  gallons 
per  min . 

The  liquid  injector  is  a  0.25  inch  brass  tube  inserted 
in  the  3"  i.d.  air  supply  pipe  just  upstream  of  the  flange 
connection  to  the  test  section.   The  injector  tube  is  drilled 
with  sixteen  l/16th  inch  diameter  holes  facing  the  test  sec- 
tion entrance.   The  drilled  holes  were  made  as  small  as 
possible  consistent  with  achieving  a  significant  liquid 
mass  flow  rate  . 
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V.   INSTRUMENTATION  SYSTEM 

The  instrumentation  system  is  designed  for  automated  data 
acquisition,  analysis,  and  display.   A  schematic  is  depicted 
in  Figure  17.   Where  ever  possible,  test  operations  and 
sequencing  are  under  direct  computer  control.   Each  parameter 
measured  involves  an  appropriate  transducer,  excitation  source, 
and  calibration  procedure.   The  major  instrumentation  sub- 
systems are: 

(A)  Pressure  Measuring  Transducers 

(B)  Nozzle  Thrust  Force  Block 

(C)  Flow  Measurement  Devices 

(D)  Data  Acquisition/Control  System 

A.   PRESSURE  MEASURING  TRANSDUCERS 

Pressure  measurements  are  made  in  fourteen  locations 
throughout  the  experimental  apparatus .   Eleven  Micro  Switch 
140PC  pressure  transducers  model  PK  376  33  are  placed  on  the 
nozzle  assembly  to  measure  pressure  at  various  axial  posi- 
tions .   Specifications  for  this  model  transducer  are  shown  in 
Figure  13.   The  first  pressure  tap  is  located  at  one  half 
inch  from  the  inlet  along  the  axis  of  the  nozzle.   The 
remainder  are  placed  at  one  inch  intervals  toward  the 
nozzle  exit.   These  pressure  taps  are  connected  to  the 
pressure  transducers  via  a  1/4"  o.d.  plastic  tubing.   The 
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Figure    13.       14-OPC    Pressure    Transducer   Specifications 
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pressure  transducers  are  mounted  on  the  side  panel  of  the 
nozzle.   See  Figure  19  for  locations.   Each  transducer  has 
an  identification  letter  corresponding  to  its  position. 
Table  I  is  the  ID  code  for  the  transducers . 

At  the  nozzle  inlet  a  Micro  Switch  200PC  pressure  trans- 
ducer model  PK  87690  is  placed  in  the  inlet  line  to  measure 
the  dual-phase  mixture  inlet  pressure.   Specifications  for 
this  model  transducers  are  shown  in  Figure  19 .   Gas  supply 
pressure  is  measured  using  a  200PC  pressure  transducer 
located  at  the  orifice  outlet.   This  transducer  is  also 
used  to  help  measure  differential  pressure  across  the  ori- 
fice.  Another  200PC  transducer  is  placed  at  the  inlet  of 
the  orifice.   The  data  acquisition  program  calculates  the 
orifice  differential  pressure  and  then   the  air  mass  rate 
using  the  output  from  the  above  two  transducers . 

The  pressure  transducers  provide  output  voltage  propor- 
tional to  applied  pressure.   These  operate  from  a  single, 
positive  supply  voltage  ranging  from  8  to  20  VDC .   The 
supply  voltage  was  maintained  at  15VDC. 

Each  pressure  transducer  sends  back  a  signal  proportional 
to  the  input  pressure.   The  signal  is  converted  in  the  A/D 
converter  to  a  digital  signal  which  can  be  read  by  the  HP9  826 
The  pressure  transducers  were  calibrated  using  a  known  pres- 
sure source .   Appendix  F  depicts  a  sample  calibration  pro- 
gram written  for  a  HP9  826  computer.   This  program  reads  ten 
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Table  I.   ID  Code  for  Instrumentation 


Letter  Designation 
A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
0 
P 


Description 

10 .5"  from  inlet 

9.5"  from  inlet 

8.5"  from  inlet 

7.5"  from  inlet 

6.5"  from  inlet 

5.5"  from  inlet 

4.5"  from  inlet 

3.5"  from  inlet 

2.5"  from  inlet 

1.5"  from  inlet 

0.5"  from  inlet 

inlet  nozzle  pressure 

force-block  signal 

force-block  excitation  voltage 

orifice  exit  pressure 

orifice  inlet  pressure 
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Pressure  »  A  +  B(volts)  +  C(volts)2  +  D(volts)3 


pressure 
transducer 

A 

8 

C 

0 

A 

-6.049 

3.926 

-.17336    ' 

;  .01121 

B 

-7.059 

4.234 

-.22921 

.01415 

C 

-.6491 

3.934 

-.16025 

.00945 

D 

-7.056 

4.692 

-.34118 

.01898 

E 

-7.009 

4.152 

-.20717 

.01237 

F 

-6.389 

3.933 

-.16055 

.00951 

G 

-6.589 

3.956 

-.16427 

.00961 

H 

-6.588 

3.908 

-.15806 

.00942 

I 

-6.595 

3.949 

-.16270 

.00957 

J 

-6.353 

3.927 

-.]6509 

.00998 

K 

-6.203 

3.846 

-.14697 

.00880 

*      I 

-20.207 

11.157 

-.08591 

.00492 

0 

-20.668 

11.068 

-.07562 

.01118 

P 

-18.827 

11.928 

-.17715 

.01101 

Figure    2  0 . 


List  of  Polynomial  Coefficients 
for  Pressure  Transducer 
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values  of  pressure  for  each  140PC  transducer  and  gives  the 
mean  and  standard  deviation  for  each  from  0  to  45  psi  in  5 
psi  increments .   Appendix  G  depicts  sample  output  of  the 
program  for  a  given  pressure.   Appendix  H  illustrates  the 
program  used  to  calibrate  the  200PC  pressure  transducers. 
The  program  works  as  above ,  except  values  are  taken  from  0 
to  60  psi  at  5  psi  increments. 

Data  obtained  during  calibration  source  pressure  is 
plotted  for  each  pressure  transducer  (Appendix  1).   Each 
plot  was  curve  fitted  with  a  third  order  polynomial.   Figure 
20  shows  coefficients  of  the  polynomial.   These  polynomials 
are  used  in  the  data  acquisition/control  program  to  convert 
transducer  readings  to  pressure  readings  . 

B.   NOZZLE  THRUST  FORCE-BLOCK 

The  thrust  produced  by  the  nozzle  was  employed  to  deduce 
the  nozzle  exit  velocities.   The  thrust  was  measured  by  in- 
strumenting a  target  plate  in  the  exit  flow  field.   Appro- 
priate screens  were  installed  to  prevent  liquid  "bounce 
back."   The  jet  momentum  force  on  the  target  is  acquired  by 
a  balance  beam  system  shown  in  Figure  21.   A  Kistler-Morse 
force  block  provides  an  analog  signal  proportional  to  the 
nozzle  jet  momentum. 

The  calibration  of  the  force-block  was  completed  by 
placing  known  weights  on  the  force-block  side  of  the  balance 
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beam,    (Figure    21),    and   recording    the    voltage    produced. 
Appendix   J    shows    results    of   this    calibration.       These    results 
were    curve    fitted   with    a   third   order   polynomial .      The    follow- 
ing   is    the    volt-to-force    conversion   polynomial: 

FB    =    (1/453. 6) *(-234. 396+48715. 28*VOLTS-11261.54*VOLTS+33899 .3*V0LTS) 

FN    =    FB*LB/LN 

FN  =  FORCE  AT  NOZZLE  EXIT  (L3F) 

FB  =  FORCE  AT  FORCE  BLOCK  (LBS) 

LB  =  LENGTH  FROM  PIVOT  TO  FORCE  BLOCKUN.) 

LN  =  LENGTH  FROM  PIVOT  TO  DIRECTIONAL  OBSTRUCTION  IN . ) 

C.   FLOW  MEASUREMENT 

1.   Air  mass  flow  measurement  for  the  system  achieved 
by  measuring  the  inlet  and  outlet  pressure  on  a  D-10512  ori- 
fice with  a  0.92  inch  bore.   For  details  on  orifice  see 
Section  III.   Air  flow  is  calculated  in  the  data  acqui- 
sition program.   The  program  uses  the  following  equation 
obtained  from  References  4  and  5 . 


Lir   =  K  A2  Y/2G^   P1(P1-P2) 


K  =  CE 

E  =  ^(l-B4)172 

S  =  d/D 

C  =  0.60 

K^  =  AREA  OF  ORIFICE  =  ttD^   FT2 

4 


G    =32.2  FT/SEC2 
c 

P1   =  DENSITY  LBM/FT3 

PI   =  PRESSURE  AT  INLET  IN  LBF/FT2 

P2   =  PRESSURE  AT  LUTLET  IN  LBF/FT2 

M  .  =  AIR  MASS  FLOW  RATE  LBM/SEC 
air 

The  discharge  coefficient  C  is  the  factor  that  accounts 

for  losses  through  the  orifice.   Since  the  values  of  C  varies 

4       7 
from  .62  to  .60  for  R,  number  from  10   to  10   with  8  =  .3, 

C  will  be  considered  constant. 

2.   Water  flow  measurement  was  made  using  two  rotometers . 

Calibration  of  the  rotometers  were  made  by  measuring  the 

time  for  a  given  weight  of  fluid  flow.   The  mass  flow  rate 

was  calculated  and  plotted  versus  the  rotometer  reading. 

Appendix  K  is  the  plot  of  the  results .   The  plot  was  curve 

fitted  with  a  third  order  polynomial.   The  following  is 

that  polynomial: 

MH20  =  -.0063263+. 00209 72 73-RR- . 0000065 8*RR2+1 . 1X10-RR2 

where  RR  =  rotometer  reading 

D.   DATA  ACQUISITION/CONTROL  SYSTEM 

The  heart  of  the  data  acquisition  system  is  a  HP9  826 
small  computer.   The  HP9  826  communicates  via  a  Hewlett 
Packard  3M-9  7A  data  acquisition/control  system.   This  system 
gathers  data  from  the  pressure  transducers  and  nozzle  thrust 
force-block.   It  converts  the  analog  signal  to  digital  data, 
and  stores  the  data  in  memory.   Figure  22  shows  a  pressure 
transducer  to  A/D  converter  channel  connection,  and  Figure  2  3 
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the  force-block  to  A/D  converter  channel  connection.   Figure 
24  depicts  the  current  connection  to  the  data  acquisition/ 
control  system  bus  from  the  sensors. 

The  data  acquisition  and  analysis  program  is  a  fully 
automated  system  which  integrates  the  use  of  the  HP9  826, 
HP3497A,  and  all  sensor  devices.   The  program  can  be  divided 
into  three  sections : 

1.  Data  Acquisition  -   Data  is  acquired  from  15  differ- 
ent sensor  devices .   All  system  parameters  are  ini- 
tialized and  configuration  types  are  inputted  into 
the  computer  memory  for  future  use .   Ten  readings 
are  made  on  each  sensor  and  a  mean  value  for  each 

is  calculated  and  stored  in  memory. 

2.  Data  Conversion  -   Input  data  conversion  is  completed 
by  using  calibration  information  obtained  on  each 
pressure  transducer  and  force-block.   The  program 
takes  the  stored  mean  values  from  memory,  and 
converts  the  input  voltage  to  a  pressure  or  force 
using  the  third  order  calibration  polynomial  for 
each  sensor. 

3.  Data  Analysis  -   This  is  the  heart  of  the  program 
in  that  all  performance  parameters  are  calculated 
and  printed.   It  uses  all  of  the  above  information 
to  calculate  mass  flow  rate  cf  water,  mass  flow 
rate  of  air,  total  mass  flow  rate,  thrust,  mixture 
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ratio,  exit   velocity  and  all  pressure  informa- 
tion.  The  following  equations  are  also  used: 
Exit  Velocity  =  (Thrust/Total  Mass  Flow  Rate)-  g  (ft/sec) 

Mixture  Ratio  =  m      /m  . 

water   air 

Total  Mass  Flow  Rate  =  m   .    +  m  .  {±SB) 

water     air   sec 

Appendix  L  is  the  data  acquisition  program  and 
sample  output . 
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VI.   EXPERIMENTAL  RESULTS 

Six  test  runs  were  made  using  the  equipment  described  in 
the  previous  sections .   It  was  found  that  the  inlet  pressure 
to  the  nozzle  remained  nearly  constant  for  each  setting. 
The  testing  was  conducted  by  maintaining  a  constant  air 
control  valve  setting  and  varying  the  mass  flow  rate  of 
water.   The  regulator  outlet  pressure  of  the  nitrogen  bottle 
which  controls  the  air  valve  was  set  at  30  psi  and  15  psi. 
These  settings  correspond  to  nozzle  inlet  pressure  of  35  + 
1.0  psi  and  29  +  1.0  psi  respectively.   For  each  nozzle  in- 
let pressure,  experimental  data  was  obtained  at  varying 
mass  ratios  of  water-to-air  in  the  range  of  2  to  13.   These 
experiments  were  conducted  with  three  discharge  area  ratios 

(A-  ,  ./k      .).   Those  ratios  are:     3.5  86,  2.600,  and 
inlet   out  '       ' 

1.3259.   The  results  of  the  six  experimental  tests  are  dis- 
played in  Tables  II  through  VII. 

Inlet  air  was  limited  to  a  maximum  value  of  40  psi. 
The  1M-0PC  pressure  transducer's  maximum  output  pressure  is 
40  psi,  (see  information  on  140PC  transducer  Figure  21). 
The  experimental  system  has  the  ability  to  reach  higher 
pressures .   The  present  configuration  may  be  operated  to 
70  psig. 
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VII.   DISCUSSION 

The  results  of  this  investigation  are  in  two  parts;  the 
experimental  test  results  and  the  computer  outputs  based  on 
initial  conditions  similar  to  those  of  the  experiments . 

The  key  variables  are:   the   nozzle  overall  area  ratio 
A-n ,  liquid/air  mass  flow  ratio,  nozzle  exit  velocity,  nozzle 
supply  pressure,  nozzle  thrust,  and  the  nozzle  axial  pres- 
sure profiles.   Figures  2  5  through  34  present  the  exit  vel- 
ocity vs.  mass  ratio  results  for  the  experiment  and  computer 
output.   Figure  29-3M-  illustrates  the  comparison  of  the  ex- 
perimental results  and  the  corresponding  computer  output. 
Figure  35  illustrates  the  variation  of  nozzle  thrust  with 
mass  ratio  for  different  area  ratios  and  inlet  pressures . 
Figures  36  and  37  present  the  axial  pressure  profiles. 

In  all  cases  the  exit  plane  velocity  decreases  as  the 
liquid/air  mass  ratio  is  increased.   In  the  low  mass  ratio 
range  (i.e.,  less  than  ~  5)  the  velocity  decrease  is  very 
pronounced.   Past  a  mass  ratio  value  of  ~  10  the  velocity 
of  the  mixture  becomes  relatively  insensitive  to  the  mixture 
ratio.   This  is  as  would  be  expected.   For  the  same  inlet 
conditions  there  is  a  fixed  amouni  of  energy  available  for 
conversion  to  its  kinetic  form.   In  the  nozzle  process  the 
energy  is  conserved  and  thus  an  increasing  mass  ratio  is 
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manifested  in  a  decreasing  exit  plane  velocity.  In  all  cases 
the  agreement  between  the  experimental  tests  and  the  analytic 
predictions  are  with  in  Z    10% . 

There  also  was  apparent  and  a  consistent  trend  with  re- 
spect to  the  nozzle  area  ratio  and  the  exit  velocity.   As 
the  nozzle  exit  area  was  increased  the  exit  velocity  of  the 
mixture  decreased.   The  effect  seems  to  be  more  pronounced 
at  the  lower  mass  ratios .   This  trend  was  confirmed  by  ob- 
servations of  the  actual  flew  field  in  the  nozzle.   If  the 
exit  area  was  increased  significantly  (beyond  the  max  area 
used  in  those  tests)  there  was  evident  an  abrupt  and  severe 
separation  within  the  diverging  portion  of  the  nozzle 
passage.   This  was  accompanied  by  a  drastic  decrease  in 
exit  velocity  as  evidenced  by  the  output  from  the  thrust 
target .   It  appears  that  the  diverging  portion  of  the 
nozzle,  at  a  certain  point,  starts  to  behave  as  a  subsonic 
dif fuser  and  hence  experiences  an  adverse  pressure  gradient . 
This  reasoning  is  in  part  confirmed  by  the  pressure  profiles 
identified  in  Figures  36  and  37. 

The  relationship  between  measured  thrust  and  mass  ratio 
(Figure  35)  indicates  a  slightly  increasing  trend.   This  may 
be  explained  by  considering  the  following.   Each  set  of  data 
points  (at  constant  inlet  air  pressure  and  constant  nozzle 
exit  area)  is  developed  by  varying  the  mass  ratio.   This, 
in  turn,  is  achieved  by  increasing  the  liquid  rate  by  in- 
creasing the  liquid  supply  pressure.   The  net  result  is  an 
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increase  in  the  liquid  inlet  velocity  or  an  increase  in  the 
inlet  energy  level.   Thus  a  particular  data  set  is  not  truly 
at  a  constant  inlet  energy  level  but  is  increasing. 

Perhaps  the  major  discrepancy  between  the  experimental 
test  results  and  the  computer  analytic  model  is  evidenced 
in  the  axial  pressure  profiles  of  Figures  36  and  37.   It  is 
clearly  evident  that  at  a  certain  point  the  nozzle  passage 
reverts  from  a  nozzle  to  a  diffuser.   This  transition  point 
occurs  slightly  downstream  of  the  throat  and  the  pressure 
starts  to  increase . 

Unfortunately  the  computer  analytic  model  requires  a 
pressure  profile  as  an  input.   Furthermore  the  pressure  pro- 
file must  be  continuously  decreasing.   Thus  the  profile  as 
obtained  from  the  experiment  are  not  directly  useable.   The 
situation  is  examined  with  the  aid  of  Figure  38.   Curve  A  is 
a  typical  axial  pressure  distribution  as  obtained  from  the 
experiment.   Curve  3  is  a  pressure  distribution  used  by 
Elliott  in  the  application  of  his  computer  program.   Pressure 
profiles  C  and  D  were  arbitrarily  defined  and  the  exit  plane 
velocity  for  each  was  calculated.   Velocity  variation  in  the 
range  of  1%  is  evident.   It  appears  that  the  final  exit 
velocity  is  relatively  insensitive  to  the  actual  pressure 
profile  in  The  nozzle. 

In  light  of  the  preceeding  difficulty  of  matching  the 
experimental  pressure  profile  to  the  computer  model  and  the 
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apparent  flexibility  of  the  type  of  pressure  profile  it  was 
decided  to  employ  a  form  of  profile  D  of  Figure  38.   Thus 
instead  of  using  the  actual  experimental  pressure  data  as 
an  input  in  the  computer  model,  a  profile  resembling  curve 
D  was  developed  for  each  inlet  pressure  case . 

It  is  apparent  that  within  certain  rather  wide  limits 
the  Elliott  computer  model  yields  results  that  correspond 
within  10%  to  results  obtained  from  the  experiment.   The 
general  trends  have  been  confirmed  and  their  behavior  has 
revealed  nothing  unexpected.   The  conclusion  of  Elliott 
[Ref .  l]  has  been  largely  substantiated.   "It  is  very 
difficult  to  design  a  bad  or  a  good  dual-phase  nozzle." 
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Figure    25.      Mass    Ratio    vs.    Exit    Velocity    at 

Pressure    =    35±1.5psi    Experimental 
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Figure    26.      Mass    Ratio    vs.    Exit    Velocity    at 

Pressure    =    29+i.5psi    Experimental 
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'igure    27.      xMass    Ratio'  vs.    Exit    Velocity    at 
Pressure    =    35  +  1. 5psi    Theoretical 
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Figure    23.       Mass    Ratio    vs.    Exit    Velocity    at 
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Figure    29.      Mass    Ranio    vs.    Exit    Velocity    at 

Pressure    =    3  5+i.5psi   Area    =     .34 375 
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Figure  30.   Mass  Ratio  vs.  Exit  Velocity  at 

Pressure  =  29  +  1. 5psi  Area  =  .84375 
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Figure  31.   Mass  Ratio  vs.  Exit  Velocity  at 

Pressure  =  35+1. 5psi  Area  =  .62500 
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Figure    32.      Mass    Ratio    vs.    Exit    Velocity    at 

Pressure    =    29+1. 5psi    Area    =".62500 
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Figure  33.   Mass  Ratio  vs.  Exit  Velocity  at 

Pressure  =  35+1. 5psi  Area  =  .45313 


104 


5  1 


x 

+ 


x 


£ 


+ 

X 


HASS  RATIO  VS.  EXIT  VELOCITY 

PRESSURE  •  29M.S 
x»—  experimental 
*•* ~  theoretical 

Ap  =3.5860        ,2 


x       + 

X 


35  ao?  355  oo«  3M  aia  573" 

XASS  RATIO 


X-SCfll_E  =  2.00E*00   UNITS    INCH. 
T-SCfllE=2.0OE*02   UNITS    INCH. 


Figure    34.      Mass    Ratio    vs.    Exit    Velocity    at 

Pressure    =    29±1.5psi   Area    =     .45313 
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VIII.   CONCLUSION 

A  set  of  experiments  were  conducted  with  an  air-water 
mixture  flowing  at  a  mass  ratio  from  2  to  13.   The  experi- 
ments correlated  well  with  a  dual-phase  two-component 
computer  program.   It  appears  that  the  program  will  permit 
prediction  of  the  exit  velocities  to  an  accuracy  of  10% 
for  two-phase  nozzles.   At  small  nozzle  area  ratios,  accu- 
racies between  theoretical  and  experimental  are  better; 
approximately  5%.   All  predicted  velocities  are  higher 
than  measured  experimental  values  due  to  estimation  of  the 
drop  size  and  the  initial  kinetic  energy  of  the  liquid  at 
injection  point. 

It  would  be  desirable  to  develop  a  drop  size  subroutine 
to  better  estimate  varying  drop  size.   The  experimental 
system  can  be  improved  by  velocity  measurement  devices  at 
the  inlet.   Input  of  the  gas  and  liquid  velocities  are 
necessary  in  the  dual-phase  two-component  program  and  thus 
these  measurement  devices  are  vital  for  better  accuracy. 

Due  to  the  insensitivity  of  the  pressure  distribution, 
it  appears  that  any  reasonable  approximation  to  the  pressure 
profile  can  be  employed  in  the  two-phase  two-component  flow 
program.   For  a  given  nozzle  exit  area  and  inlet  pressure, 
a  pressure  distribution  curve  can  be  obtained  through  the 
experimental  system.   This  distribution  can  therefore  be 
used  to  obtain  good  results . 
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APPENDIX    D:       SAMPLE    PROPERTY    TABLE 
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APPENDIX  I:   CALIBRATION  PLOT  OF  PRESSURE  TRANSDUCERS 


H 

-J 
O 

> 


2.65961  + 

1.65961 

8.65961 

9.65961 

6. 65961 

7.65961 

6.65961 

5.65961 

4.65961 

3.65961 

2.65961 

U.GBQJ1 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


i 


/ 


/ 


/ 


/ 


/ 


"    / 

t 
I 


H — I — 1 — H 


H — I — I — I — h 


H — I — I — V 


cj 


wwwQmtnmQmminQtntnmowio 
—  «-•  (Vi  c\j  co  ro  v 


Pressure    (psi) 


Calibration  Plot  of  Pressure  Transducer  A 


130 


H 

-I 
O 

> 


2.83108 

,1.83108 

0.83108 

8.83108 

8.83108-- 

7.83108-- 

6.83108 

5.83108 

4.83108 

3.83108-4 

2.83108 

U.QD130 


y 


/ 


/ 


/ 


/ 


/ 


/ 


0 

/ 


/ 


J 

/ 


/ 


0 

/ 


/ 


/ 


0 

/ 


0 


cjintnwommmQwtnwcsinwmQinif) 


..    w 


.    ~*      .    *—      .ft;      •    c\i      •    o      •    co      •    tt      • 

—  •*  tu  (Vi  O  co  *• 


Pressure    (psi) 


Calibration   Plot   of  Pressure  Transducer     3 


1   "5 


a 

o 

> 


2.77124 
1.77124 

0.77124 
9.77124 
8.77124 
7.77124 
6.77124 
5.77124 
4.77124 
3.77124 
2.77124 
11.7P134 


/ 


/ 


/ 


7? 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


0 


^t—\ — l — i — I — I — I — i — I — I — I — i — i — I — l — 1 — l — h 


..    cu 


CVJ  IV-  OJ 

mt  -*  {VI 


CO 


Pressure    (psi) 


Calibration  Plot  of  Pressure  Transducer  C 


132 


H 

_; 
o 

> 


2.69261 
1.69261 
0.69261 
9.69261 
8.69261 
7.69261 
6.69261 
5.69261 
4.69261 
3.69261 
2.69261 
U.GDCJi 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


4 


/ 


/ 


/ 


/ 


/ 


/ 


9 


4 1 1 1 J 1 1 1 | 1 1 j 1 1 1 1 j- 

wwioammtnQinmmOininwOintf) 

•  a     vH         a     *4         «(VI         •      (Vi         •      CD         •      CO         •      V         • 

(\jiN-rurN.fvjr«-aji>.fu 
~         —         cvj         (\i         co         ro  v 


Pressure    (psi) 


C3 


Calibration  Plot   of   Pressure   Transducer     D 


133 


H 

-J 
O 

> 


2.84389  + 
.1.84389 
.0.84389 
9.84389 
8.84389 
7.84389 
6.84389 
5.84389 
4.84389 
3.84389 
2.84369 


11.(3*300 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


./ 


H — H-hH — h 


H — I — I — V 


■i — I — ! — I — H 


C9 


inminStniflinSinininQinminsinij) 

CUlV.(VJ»N.f\ilVOJJN.fU 

mm  *-•  CV1  CM  W  P)  *" 


Pressure    (psi) 


Calibration   Plot  of  Pressure  Transducer     E 


134 


H 

-3 
O 

> 


12.7494-- 
11.7494-- 
18.7494-- 
9.7494-- 
8.7494 
7.7494 
6.7494 
5.7494 
4.7494 
3.7494 
2.7494 
U.P434 


/ 


/ 


/ 


/ 


/ 


J* 


V 

/ 


9 

/ 


V 


7* 


/ 


/ 


-\ — ! — I — I — ! — 1 — I — I — I — I — I — I — H 


OinininsinininfSiniotnsinioioSOTio 


..    CVJ 


.«-•        i     *~        *Oi        •     CM        •     O        •     O        • 

O.  OJ  JV.  OJ  IN.  CU  IN. 

*■*         -•         oj         oj         o         re 


Pressure    (psi) 


Calibration  Plot  of   Pressure  Transducer     F 


135 


2.79093-- 

l. 79093-- 

0.79093-- 

9.79093-- 

8.79093-- 

7.79093 

8.79093 

5.79093 

4.79093 

3.79093 

2.79093 


H.7D033 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


-1 — I — I — H 


1 — I — I — \- 


17 


ini/)U]{Sinmint9ioinmsiflinin(9inip 

•  .       — ■+  •      «^  .       i\J  .       (^  •       ft)  .       (T)  .       ^J-  « 

4>Airw(MI^CUIN.(KI|VCVi 

-*  ~+  CM  CM  CO  CO  <T 


Pressure    (psi) 


Calibration  Plot  of  Pressure  Transducer     6 


136 


inininommmQiftmmQmmOTQmLp 
MivAiis.cuivc\ir>-Ai 

•*     ~«     W     (Vi     f)     0)     V 


Pressure  (psi) 


Calibration  Plot  of  Pressure  Transducer  H 


137 


2.79549 
,1.79549 
,8.79549 
9.79549 
8.79549 
7.79549 
6.79549 
5.79549 
4.79549 
3.79549 
2.79549 
U.7D54Q 


/ 


/ 


7"- 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


"  / 


■i 1 1 h 


■\ 1 1 h 


9 


\n\n\nQ\nin\ntsin\nin&\n\ninSiin\p 
•  .   «-.     •    *-*     •   cki     *   (vi     *   o     *   oo     *    v     * 

(MI\.(VIIN>(VilV(VllN.(\i 

•■*    ~*        est        (vi    m        co    v 


Pressure  (osi) 


Calibration  Plot  of  Pressure  Transducer   I 


138 


2.73944- 

/ 

1.73944- 

/ 

, 3. 73944- 

/ 
/ 

/ 

9.73944- 

8.73944- 

■     / 

/ 

•      / 

7.73944- 

B. 73944- 
5.73944- 

4.73944- 

* 

3.73944- 

/ 

4 

2.73944- 

■  / 

/        1              1              I              1              1              !              1              1              1              1              1              1              !              1              !              1              1 

if.  rUUI^    -      i       i       i       i       i       i       i       i       i       i       i       i       i       i       i       ii 

CJintnwcamtnmQmmmQmwmQwio 

--cviiv.<vir^<\jiN.{\ir^oj 

-•          — «          c\j          oj          fn          o          v 

Pressure    (psi) 

Calibration  Plot  of  Pressure  Transducer  J 


139 


2.72299- 

- 

/ 

.1.72299- 

/ 

/ 

3 

a.72299- 

/ 
/ 

9.72299- 

8.72299- 

/ 

/ 

7.72299- 

6.72299- 
5.72299- 
4.72299- 

/ 

3.72299- 

/ 

/ 

4 

2.72299- 

V 

«<     -rn'Min    i 

r      1        1        1 

■              |              f              |              |              f              1              1              ■              1              11              1              1 

U  >  rtl  l!  J  *J  J 

'III 

i    m    in    in 

-CM             IN. 

1              1              i              1              1              1              1              1              1              1              1              1              1              1 

csmtnincsmminQinwwQtnu 

^*      •   •■*      •    cm      •    cm      •    o      •    o      »^r      •'T 

cm          in-          cm          in-          cm          r\.          cm 

-•          ••          cu         cm         en          ro          v 

Pressure    (psi) 

Calibration  Plot  of  Pressure  Transducer  K 


mo 


O 

> 


5.83424 
5.58424 
5.33424 
-5.38424 
4.83424 
4.58424 
4.33424 
4.08424 
3.83424 
3.58424 
3.33424 
3.08424 
2.83424 
2.58424 
2.33424 
2.08424 


U.0D434 


/ 


/ 


/ 


t 

/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


-     / 

..  / 


H — I — I — f- 


CPmtnwQwiowowtnincsmmtnQwtf) 
.  .    »— •      .    «-.      .    oj      •    oj      *    i*n      *    n      *    ^r      ■ 

-*  •*  cu  cm  co  m  v 

Pressure( psi ) 


Calibration  Plot  of  Pressure  Transducer  L 


141 


miommininioininininiominininm 


o  n   n   m   o)   in 
ir  id  v   07   v  o) 


0} 


(no)a>o>cr)(na)0}(no) 


03 


raroTCiTCUT 


c)S(QU)OS(<)ioiBS(i)tn(DOninGD 


IN. 

in 

03  CO 
C3  **■ 
C9     C* 


««tu<u<MAi<n<ncn<n'rv^rvtf3miou>«» 


Volts 


Calibration  plot  of  pressure  Transducer  0 


142 


i- 

3 

i- 


^ 

r   *• 

•r 

"«• 

^ 

^r 

*• 

*• 

'T 

*• 

^r 

c 

3   ca 

2D 

CO 

OD 

OD 

03 

CO 

CO 

CO 

CO 

s 

i       co 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

a 

3    C9 

s 

a 

s 

o 

s 

<3 

a 

(9 

8 

t 

5    ^ 

(O 

»-■ 

(0 

»■« 

(0 

»■< 

CO 

94 

CO 

<M 


(U 


co 


CO 


to 


in 


tO 


to 


Volts 
Calibration  Plot  of  Pressure  Transducer  P 


143 


APPENDIX  J:   CALIBRATION  PLOT  FOR  FORCE-BLOCK 
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■APPENDIX  K:   CALIBRATION  PLOT  FOR  ROTOMETER 
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APPENDIX  L:   DATA  ACQUISITION  AND  ANALYSIS  PROGRAM 


3 

PRINT  "INPUT  SOTUMETER  READING- 

4 

INPUT  Rr 

5 

PRINT  Rr 

7 

DIM  A(14),B(14),CU4).Dist(14),D(14) 

8 

DIM  Press(14) 

10 

DIM  X(18,100).Sum( 18),Mean(18) ,Sum2(18) 

30 

N-1Q 

40 

FOR  1=1  TO  N 

50 

OUTPUT  709;"AI1VT1" 

60 

ENTER  709:X(1,I) 

70 

OUTPUT  709;"AI2VT1" 

80 

ENTER  709:X(2,I) 

90 

OUTPUT  709:UAI3VT1" 

100 

ENTER  709;X(3.I) 

110 

OUTPUT  709:"AI4VT1" 

120 

ENTER  709:X(4,I) 

130 

OUTPUT  709;"AI5VT1" 

140 

ENTER  709:X(5,I) 

150 

OUTPUT  709;nAI6VT1" 

1S0 

ENTER  709;X(6,I) 

170 

OUTPUT  709;"AI7VT1" 

180 

ENTER  709:X(7,I) 

190 

OUTPUT  709;"AI8VT1" 

200 

ENTER  709:X(8,I) 

210 

OUTPUT  709;"AI9VT1" 

220 

ENTER  709:X(9,I) 

230 

OUTPUT  709:UAI10VT1" 

240 

ENTER  709:X(10,I) 

250 

OUTPUT  709; "All  1 VT1 ■ 

260 

ENTER  709:X(11,I) 

261 

OUTPUT  709;"AI12VT1" 

262 

ENTER  709;X(12,D 

263 

OUTPUT  709;"AI13VT1)" 

264 

ENTER  709:X(13,D 

265 

OUTPUT  709;nAI14VTD" 

266 

ENTER  709:X( 14,1) 

267 

OUTPUT  709;"AI15VT1)- 

268 

ENTER  705;X(15,D 

270 

NEXT  I 

440 

FOR  J=1  TO  16 

450 

Sum(J)=0 

460 

FOR  1=1  TO  N 

470 

Sum(J)=Sum(J)+X(J.I) 

480 

NEXT  I 

490 

Meant J) -Sum (J )/N 

510 

NEXT  J 
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APPENDIX  M:   DUAL-PHASE  TWO-COMPONENT  COMPUTER  PROGRAM 
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2  TIS 

DIH°NS  ION    PL  (  10) 
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o) ,thray (IOC) , ran A 


XX=-1. J 

SMlt     -      1.0E-6 
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C               THE    A30VE    COHBOH 

LLO^K     FOR    5'l3h0:J7 

['If.    TABLE    1 

SFC1  00r>0 

C                IT    MUST 

EE    THE    FIPST    COMBi 

)N     TiI.OCK 

SEC1  00(>0 

COBBON 

A 

,     A  3  A  U 

,     ALAB 

ALPHAS 

,     AL7HA 

A  LP  II R  B 

,            SEC  10 070 

1 

ALPHS 

.   a  a 

r     AP 

AS 

,     AT 

uA 

r            SEC 10080 

2 

3D 

,     BSTAiJ 

,     BET  ABU 

,     BETA 

,     BETAS 

7B 

,             SEv'1  )1T) 

3 

C 

.   ci 

r     C  AG  1 

,     CA'JIB 

•  k\ 

CALMB 

,             SSC10130 

«     CSG1        , 

CAL 

,    CASS 

,   c?i;an 

,     CPG 

;3LBD 

,     C3L 

SFC1 0  110 

coaaos 

CUBS 

,    CDP 

,     CD 

C'TM 

CFIBS 

C71B 

S  EC*  1  3 1 2  0 

6 

CFOMS 

,  CG*n 

CI? 

CG«S 

,   :lbb 

CLM 

,             S SCI  0130 

7 

CMS 

C3AYE 

,     3 

D2              , 

r>A 

DATS 

SSC1 Oil J 

3 

DD 

DEi.ia 

DELI 

BEI.rS 

UELOB 

:>ci.o 

,             S  EC  1  1 1  r>  0 

9 

D5L05 

,   nsLsi 

,     DEL30 

dsltb 

DELT 

DiLV2 

SEC1  ;)1h0 

COBHOH 

DLM  AG8 

DKBAG 

DS.BUGB 

n  -  a  d  g 

DSB'JB 

DT  N  T 

S  EC  1  1171 

1 

DU  IS 

OLiOS 

DO 

[)n  1 

3? 

7?  AY 

SEC1   >1  SO 

2 

DPI 

dpo 

,     33 

37  1 

■j:\ve 

,    DSLIfl 

,            SSC1  )193 

3 

:,  ;n ax 

,   nsam 

,    as."  All 

DSa.'.Y 

DSiiESI 

0SrtiJS2 

SEC  1  !J230 

u 

DjRES 

03 

jSa  1 

'J3X2 

DTG  1 

nr-;3 

S2C1 3210 

cobbon 

DT3 

DTIII 

,     D7II0 

DTL1 

DTLB 

7  7L 

7E"1 0220 

6 

DT 

DVraSQ 

dvgsq 

PVLSU 

3X                , 

!)YI 

3&C1J230 

7 

mi 

73 

,     E  DS 

El  AG  3 

EBAG 

7.MUGB 

S2C1 02U0 

8 

EBBG 

EM';n 

SBG            ( 

ERGS 

,     rML3 

'•MLB 

sh.;i  i2rO 

9 

7BL 

"BLS 

r  a  ; 

'•'  7 0 

FLEEP 

FUH 

SEC1  0  2')') 

coaaos 

H 

UJI 

HKAG 

IIKL<G 

HKiJSl 

ik  ;b2 

SEC1  J">70 

i 

HKJB 

,     HKG8S 

,     Ti  LA  1 

MI.  AM 

H  L  \ 

iilas 

SSC1 3i°0 

2 

HLB  1 

,     iJLBB 

,     MLB 

HL9S 

,  ii  a 

uM.i 

,             S&C1 T2"1 

3 

SIOPR 

r     •IT 

I  ACV 

,      WLrf 

IbLX 

I  j.' 

,             3  EC  1  0  J  JO 

4 

IJH 

,    r  V" 

,     IST-T 

,    ::no 

K 

51 

3  2^  1  111  1 

coano;j 

K2 

X  AP 

,     KD.iCT 

<ns          , 

'L 

KR1 

37.7  1   )3?0 

6 

KF 

KTBCT 

,     KTJ 

,    kx;m 

KXP 

L 

SEC  101 >0 

7 

LI 

t     L  2 

,     LCT1 

LCT2 

LL 

LP^CT 

3  7C1  0  IU3 

9 

L3W 

,    a  t»n 

,     BFPO 

.-.7  7 

,    nipo 

BB 

,           ssri  i  <riu 

9     N 

HOP 

,    BT"T 

,     N  AC  V 

S3                , 

1CLK 

>ICTS 

:;-ci  0J<»0 

coaaos 

NIi  LAG 

3D  3 

KG , ; 

•jth 

i  r.s 

,     NLJT 

SF.rl  >  173 

1 

..'l\ 

rt'ij 

NNDS 

NSN 

'.  ?  p 

:i?; 

SEC  1  ,H0 

2 

nnsoo 

•i  'i  SO 

,     NN3 

NP 

sso 

1      NS 

3  EC  J  '■  •  ) 

3 

P 

,    ?  10 

.     P11 

PAB             , 

p  a  r.  b 

P  A                 , 

3EC1  ;»oj 

it 

7A3 

P3U 

,    PEMn 

PBoa 

PBO 

?b 

-F.C1   KHQ 

cobbon 

PUS 

P  II I A  D 

PHI  3A 

PHI 

,    "■  r  >:7 

?l 

7771 0420 

6 

PL1 

ro 

-     PS 

tt 

a 

013 

7,  EC1  7  4  '■  j 

7 

EM 

f  A 

,     SAJ 

RAXO 

•  A  X 

:  b 

SECi  OiaO 

6 

sc 

,    RDSLIS 

RDELOB 

,      U7IBS 

■\  ;>o«s 

■ 

SEC1  :)U30 

9 

a  FB 

,    hSBS 

,    RESLIii 

P^TiO           . 

f "  ;  7. 

:ui  )GB 

3EC1  04f  0 

COBBON 

C  H3  G 

,    KilCGS 

,     HilT'LB 

rfKOLB 

itHOL 

7»JLS 

SEC11U71 

1 

ara         , 

r.i 

,     RB 

P.OALB      , 

ROAL 

KOSLB 

3E7  1  ;««0 

2 

aoBL 

HOB 

RO 

H 

sslis 

7\S 

3EC1  7411 

3 

nvs 

3W 

3VS              . 

S                   , 

S  1 

*  2 

3  EC  1  ; r^  J  0 

<4 

S3               , 

-'■4 

S  A 

ST 

S  i^ '; 

;  i "; 

S EC  1 1 5 1 0 

COBBON 

sns 

THIN 

,     5SJ1 

S»J2 

~i*lC           , 

sat.o 

7,-CI  0520 

6 

SBLH 

;il? 

3MJ.G 

SB 

-n.M 

■0.12 

3EC1  OS  10 

7 

SOP 

30             , 

so  j  a      , 

ss            , 

'l  J '' 

7  7.  -1 

3SC1  3r>U0 

9 

? 

TB 

-  3 "  ,\  r 

TF>SA  Y1 

r  G  M  9 

•"in 

3  7C 1  0S5 1 

9 

f  2 

T  G3             , 

THIB          , 

THIO 

"II             i 

Tin  ; 

Oi:-1  Jb-  0 

coaaoN 

?boa 

r  aoo 

TilO 

THOS 

:k 

TKT             , 

3EC1  1570 

i 

TLB  3 

7LO 

TL               , 

TLS 

1ST 

T«ra 

SEC1 Jb^O 

2 

TWX  i*.S 

Twoa 

,    TWO  as      , 

71                 , 

V2 

VAll 

3EC1  1590 

3 

7B1 

»3DS 

VD.1 

TuBSy       , 

VB                 . 

VBSO 

5EC1 OhOO 

4 

YDS              , 

VGO            , 

-    VG 

VGSQ 

7GS              , 

VI  AG 

SEC10610 
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TILE:    TH3 


FORTRAN       A1        NAVAL    POSTGRADUATE    SCHOOL 


connoH 


coinoH 


6 
7 
8 
9 

( 
1 
2 

DIPSNSI 
DI.1EHS 

MRSNSI 

1  C 

2  1  (100)  , 
BQUIVAL 

C  »♦*•«»« 

c  »««♦»*  * 

Q  *«»***» 

10  costiho 

NST".T  =  'J 

C  CO    -E     li 

IF  (XX*  1 

1  CO  NT  I  M  'I 
HRITE  ( 
XX=-1.0 

2  CO  NTT '.'U 
C    READ     INPUTS 

HEAD     (5 

TP  (NS)  5 

nsti7=^ 

RFTUt'N 

11  CO  ST  I N  <1 
3  FAD  (5 
BEAD     (5 

'  ....  : 

2EB 
W  * I TE     ( 

1  BBU.rO? 

2H.ALAM . 
bHITE     ( 
ND1AC=Q 
NNN=0 
KAP-  1 
SACV    = 

sn*o 
iacv  = 

KTS    =     1 

xns  =    1 

LCT2=0 
X  1  =  1 
K2  =  l 
KC3CT=0 
K  riiCT=<3 

sc:s=o 

LCI1=)0 
K  =  1 


VIA 

VIG 

VI. 

WAG 

WPL 

«C1 

XIN 

tis 

ON  fL 
ICN  S 
ON  LiA 
(6)  ,A 
EPAY( 
ENCE 

•  »  •  •* 

•  !••• 

•  **  ** 


(10) 
DRAY  f75) 


VTAL 

VIL3 
VL30. 
I*  AGS 

UG8 

wo«,s 

XP 
TO 


VIBG 
VILA 
VL3 
WAL 

wr, 

X 

xs 

TOS 


VIoLB 
VI  EMS 

vs 

yron 

WG3 
X  10 

XX 

ZZZ 


VTML 
V  LI 

vss 

.  ns 

WIN 
x  11 
KXA 

:istit 


vn;n 

VLD 

. , ;  j 

WIGS 
.1.13 
XCLK 

yi 


SEC 
3  EC 

snc 

SEC 

3  EC 

s  ec 


75) 

•  CAS?:  (!)  , QID(R1  ,  K?(  2,75)  .  PL  1  (10)  , 

*•)  ,  XXA  (J)  .DSRAY  (100)  .DSHAJM  (TOO)  ,  TURA 

T(  18)  ,  DINT  (9) 

yd)  ,3!uym 

TAT^MiiNT    NO.      10       «»•«•»*««**♦»»••*«*• 


SFC 
Y  (100) ,TBBAISEC 


*•*  » 
•  •*• 


191 

AVE    TO     WOT 

.0)  1,2,  1 

E 

6,8077)      XX 


(XX=-1.0     IN     MAIN)         SET     (POSSI3LY)      IN    SECTU 


•  •#*»*  **f:  v" 

********SEC 

*  •»»««**t;^- 

3  EC 
SEC 
<=EC 


9<? 


'IE 

(6,8077)      XX 

US 

S     AND     PRINT    HF.AOOG    FOB    THIS    CASE 

5 .910,  EN  0=777  7)      (DATE  (I)   ,1=1,5)  ,  (CASK  (I)  ,1=1,  1)  , 

N  S     liP 

it  r 


(010  (I)  , 


GET     X(P)     TAELE    IDENTIFICATION    AND    X(?)      TABLE    DATA     POINTS. 


I?  (HOP ) 
1 U     HEAD     (5 
WRITE     ( 
C 

C    READ     IN     Xf? 

DO    81^0 

CO    900  0 

IP  UP,  < 

8000     COSTTNO 

c 

9  READ  (5 
DO  1120 
IF(CiL) 


1360,  14,1360 

,  ?1V4  j      (XXA  (I)  ,  1=1  ,.1) 

6,991';)       (XXA  (T)   .1=1,8) 

)     TAIL*:    T?    MO?=0 

KP=1 ,75 

JP=1  ,2 
|,=-1.0 

,91<*)      (C(L),L=1,6) 

1=1,  5.2 
-C(L*1)  )  18,15,  18 


sec 
SEC 
S  EC 
SEC 
SEC 

SF.C 

sec 

SEC 
3EC 
5  EC 
3  EC 
SEC 
SFC 

3~c 
SEC 

s:'c 

3  EC 

SEC 

SEC 
3  EC 
SEC 
SEC 

SEC 

3P.C 
SEC 
SEC 
SEC 
SEC 


SEC 

SEC 

SEC 
SEC 
SF7 
SEC 


3  EC 
SEC 
SEC 
SEC 
Sx.C 
SEC 
SEC 


162  0 
)S10 

1 50 

ifthO 
;h7Q 
)u-10 

700 
)71  ) 
)720 
170  0 

74  0 
1750 
|760 
1770 

H-'O 

:7''0 

'vjO 

1810 

n?o 

:\30 
18i»0 
1850 
!SuO 
JO  20 
)v  10 
)920 
."no 

!  'l  'i  o 
C*'>0 
W70 
>4'<0 

:  'i  ">  0 
00  0 

mo 

020 
0  <0 
Ouo 
050 
060 
070 
080 
090 
100 
110 

mo 

1150 
"iO 

170 

180 

1"0 
10 

!210 

220 

1220 

I2«0 

I2*>0 

1270 

1280 

290 

1(50 

110 
I  320 

I  310 
JtiO 
ISO 
loO 
170 

II  BO 
1190 
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PILE:    TRJ 


FORTRAN       41        NAVAL    POSTGRADUATE    SCHOOL 


15    IF(C(L)-     100000.)  18, 9916, 18 

18  XV  (1,K)  =  C(L) 
IP  (2,F)  =  Q\l*  1) 
IF    K-ISET) 19, 19,21 

19  l<  =  K»1 
1320    CONTINUE 

GO  TO  9 
9916  K  =  K-1 
C         THIS  IS  A  FIX  FOB  PKESSUBE  TA3L3  IHTERP  AT  STEP  51 

KXP1  =  K 
C 

C    PBISTO'JT    T(P)     TA3LE    JUST    READ    IN 
C 

L1  =  1 

L2^9 

K?ITE     (6,915) 
10     WRITE     (6, 399)       (XP (1 , LT) ,LT=L1, L2) 

WPITE     (b.917)      <XP  (2  ,LT)  ,LT=L1,  L2) 

LCT1=LCT1*3 

IF  (L2-K)   13,2  2,  22 
13    L1=L1»< 

L2=AKIS0  JL2«tJ,K) 

IF  |LC7 1-5z) 16, 17,  17 

c 

C    RIXXHOfl    LINE    COUNT     EXCEEDED    -    STABT    HE!     PAGE. 

C 

17  WRITE  (6,918)  LPGCT 

LCT1=4 

LPGCT=r,PGCT*  1 

GO  TO  16 
C 

C    X(P)     TA3LZ    LISITS     EXCEEDED    -    P3INT     EHHOR     MESSAGE    AND 
C  EXIT    TO     N  EXT    CASE. 

C 

21  WRITE     f 6 ,921) 
GO    TO     10 

C 

22  CONTINUE 
C 

C     APPROPRIATE     TABLES     HAVE     3EEN    SRAD    IN     Ai      REQUIRED 
C 
1360    CONTINUE 

WRIT     (6,916) 
RST9PN 
5    N5TflT=5 
KET'IkN 
7777    STOP 
40  9     FOFMA7  (  1H0,  JX,5!IPDF3S,  IX,  1  <?8  E1  5.4) 

910  F0P"M74A4,A2,3AU,7A4,A2,2I6) 

911  foma:  h  lib) 

912  POi-,;?(SF12.b,/,'.ri2.6,/,f.E12.6,/,..El2.6) 

913  FOi-r.AT  (  1  Ii1     ,     7X,9ti3£<M.    "«>-, 
131KPUASE    rwj-COMl."<;.tE!:T    NOZZLE    FLOW    ,/ 

2  ,  8x,«a«,a2./,bx,12:k;asc;   :;ur.RFb    , 1A4,/, 

3  8X.7A4  ,  A  2,///     ,  1  OX,  :'..".,  10X,2f!  hp,   >X  ,  3  HrfBU,9X,  iH  "OP, 
48X,4l!,nEG,9X,3H1l>5,9X,  3HS30,  10X,2H')B  ,  9X  ,  3MNHS,/, 

5  9  (6X.I61  ,//,20X,2HOr,  13  X,  211  PC  ,  12  X,  3  HPUt  ,1  1X,4ilh  AX"), 

6  1  2  X  ,  1 H  7. 1 T  ,  14  X  ,  1 1I II  ,  1  1  X  ,  4  !i  A  [.  A 1  ,  /  ,  1  1  X  ,  7  F  1  5  .  *  . 
7//,  nX,3HWAL,12X.3Ht.bL,13X,^HSA,1  l{,  2HSD,13X,2IinO,  1  JX, 
82HPO,  12X  .JHrGO,  12X,  3HTLn,/,  11X,  lPtjr.15.a,//,l5x,3HV'GO,12X, 
9  3HVL  ■.,  1  1  X,  4  IT'!  CO,  1  1  X.4HTH10,  12  X,  3HEDS,  12X,  JHESO,  13X,2!iEo) 


JHn 


914  FORMAT  (6  E  12.  •>) 

915  POP.M'VT  {  1H0.5HX,  16'IX  (P)     TAuLE    T  r.P'J  0 

91b  POliMAr     1H0.7  X,2  liiPPIXTO'J  7-ST  A7ION     KJ  TPUT        ) 

"1  FORMAT      111     ,7T,  1HT.1X,  1PSS15.4) 

6  ?1;'I'T     1H1     ,  120X,bflPAGE    ,  I  3,///,55X,  1HIIX  (P)     TABLE     (COliT, 

1  FORMAT j  1H0,29HX (P)     TABLi     LIMITS    EXCEEDED     -    , 


917 
91 


)) 


1  13HMF  AD     I*i    NrXT    C 
9913     'Oii.VT  (  1  HO  ,  1  JX,  1P7E15'.  4//1  9X,3  liDP  1 , 
1/,  11X,E15.4) 


9914  /0?."AT  (7A4,A2) 

9915  FORHAT (  130,19HX(F) 


TABLE    FOLLOWS    , 15 X, 11 HTABLH    ID    - 


:;eci 

1430 

SEC1 

1410 

SEC1 

14:0 

3  EC  1 

14  10 

S  EC  1 

14'tO 

J  l"  I 

1400 

S  EC  1 

iuf-0 

■i  E  f  1 

1470 

",Z"  1 

14-10 

S  EC  1 

1U>10 

3SC1 

1510 

3  EC  1 

1510 

3  EC  1 

1520 

53C1 

1c  13 

5  EC  1 

1 540 

SEC1 

1550 

S  EC  1 

15-0 

5  EC  1 

IS7Q 

s  ic  i 

16°9 

sin 

15  10 

S  EC  1 

1600 

5EC1 

1  b  1 0 

3FC1 

16?0 

SEC1 

16  10 

I T  *  1 

1640 

rsci 

1650 

S  EC  1 

IfthO 

3  EC  1 

lt.70 

3E.-' 

16R0 

5  EC  1 

I6'10 

r.  EC  i 

1  7^3 

*;-.<.'  i 

1"M0 

S  EC  1 

1720 

3  EC  1 

1730 

SEC1 

1740 

S  EC  1 

17r.J 

SEC1 

17-  0 

3  EC  1 

1770 

'*  r~  t 

17B3 

3  EC  1 

17"0 

SET  1 

1B00 

SFC1 

131U 

3  EC  1 

1H">0 

.  „  .  , 

!,m 

'  EC  1 

T14  0 

SEC1 

1>150 

SEC1 

mt-o 

c-  or"  ] 

1M7  3 

S  EC  1 

1SM0 

SEC1 

1H'4J 

S  EC  1 

19  )0 

SEC1 

1113 

3EC1 

1  '>->r\ 

S  EC  1 

19  30 

SEC1 

144  0 

■7  c;-  ^ 

1)53 

•".  EC  1 

14.-.0 

SEC1 

1470 

S2C1 

1410 

3  EC  1 

199  0 

SEr  1 

^000 

!  S  C  l 

.010 

3  EC  * 

2020 

SZC1 

CO  10 

SEC1 

2  04  0 

3  EC  1 

2  05  0 

SEC  1 

2060 

3  EC  1 

2OR0 

3  Ed 

2040 

SEC1 

2100 

3EC1 

21  10 

154 


1                7A4.A2) 

3EC1 2120 

801 

JHISOTHERMA 

ro    ,irsih 

,U     ,     OH    PSTi 

S  EC  1  2 1  1 0 

2ND 

S  PC  1  .?  1 U  0 

SOBPOI 

33C20010 

COMMON 

TZZZAT 

SSC2  "JOPO 

0IMF.NSION    TZZZAT  (112J0) 

S£:-2  5033 

C 

THE    ABOVE    COMMON 

3LOCK     FOP    SURPOilTIN  ES    TAB!. 

:    AND     TNTRP 

sEc2;)ir>0 

C 

IT    MUST    EE   TI'.E    PIB3T    COHBOB    BLOCK 

SEC^-U'iO 

COMMON 

A 

,    A  B  A  a 

,     ALAM 

,      AI.FHA3 

,     ALPHA 

,     ALL  11  MB 

,         izc:  io?o 

1 

A  LP  US 

,     AM 

.     AP 

,      A3 

,     AT 

,     PA 

,             .3FC2J)»0 

2 

OB 

,     dElAB 

,     BETAMB 

,    b::ta 

,     BFTAS 

,     13" 

,            SEC2  0090 

3 

C 

.    C1 

,    CA'il 

,     CAJM3 

,     3AG 

,     CM.MB 

,            SEC20100 

«    CBG1 

,    CAL 

r    CASE 

,     CiGMB 

,    cm; 

,     3BLM3 

,     CEL 

S  EC  I  'J  1 1 0 

COMMON 

C^MS 

,    CPP 

,    CD 

CFIM 

CF1MS 

,    CPUS 

,             SEC/ 01/0 

6 

CFDMS 

CGMB 

,     COM 

,     CGBS 

,     rtM3 

,    cl:* 

,             S  EC /  1 1  1 0 

7 

CMS 

,    CSAV2 

,     D 

.      D?               . 

DA 

,     DM? 

,          sf::2  juj 

s 

DD               , 

OELIfl 

,     DELI 

,     D3LIS 

,     ,">ELOM 

,     DFI.0 

,         3ecj:i'-o 

9 

n-LOS 

,    DELS  I 

,     DFL30 

,      CFLTM 

,     DFLT 

,     DSLV2 

SEC2  3  ISO 

COMMON 

DEM  AGO 

D2.1AG 

,     DtMBGB 

,     P'-bG 

,     O^'iB 

HINT 

,            SEC2J170 

1 

DLSIS 

DL30S 

,     DO 

DP  1             , 

UP 

DRAY 

r             3  ?'-2.)1^0 

2 

DBI 

DRO 

DR 

,      DS1 

,   dsavf: 

,     D3LTM 

,             SEC2J1O0 

J 

i)SM  AX 

,    OSMIN 

,    D  s  a  AY  1 

,      D3.3AY 

,     DS^ESI 

,   Ds^esa 

,             SEC20200 

<t 

DSRES 

,    OS 

,     DSX  1 

,      P3X2 

,     DTG1 

,     DTG3 

3"r^  32  10 

COMMON 

DTG 

DTHI 

DTlfG 

D7L1 

DTL3 

PTL 

,         sec:  '::'7 

6 

DT 

u/bsq 

BVGSQ 

DVL3D 

F        ~>i 

OYI 

,         sr:c2>2»o 

7 

nya 

-     ?B 

,     EDS 

7  '*  V3B 

RMAG 

,    r  ■•  r  r,  a 

,             S'iCl  U2'»0 

8 

E"BG 

emg3 

,    fmg 

■-.-*  -.3 

,     ''MLB 

EMLB 

,             SFnj  )  ",0 

9 

FML 

,    ?KLS 

1?  ",7 

EfiO 

FL  J  ?" 

Firx 

SE'-"-',  !'.0 

COMMON 

il 

H.I  I 

If  K  A  G 

HKiTG 

,     It  K  3  11 

,     iIK.,12 

f.EC2?270 

1 

I1K3M 

,     HK".MS 

,     HLA1 

HLAM 

,     'I  LA 

IILAS 

snc-2  ;?■' 3 

2 

HI.3  1 

,    HL5B 

,     11  LB 

;-::._i5 

,     :!H 

l!MS 

,            SEC  )2'»0 

J 

HOPS 

IIT 

,     .'  AC  V 

inLs 

I3LX 

[BW 

»           SCC2O300 

a 

I.JH              , 

INT            , 

ISLT 

I  ZERO 

K 

<1 

sEc2:\no 

COMMON 

K2 

K  AP 

KD3CT 

KDJ             , 

<L 

S'?1 

SEC2  J  320 

f> 

KR                . 

KT3CT 

KT»             , 

Kxri 

KTP              , 

I. 

S EC2  .3  3  ao 

7 

LI                , 

L? 

LCT1 

LCT2 

LL                 , 

I.PGCT 

5*X:2  03U0 

8 

I.3W           , 

.1  BLf             , 

mf:o 

MFt 

B-ISO 

MM 

3EC20 ^30 

9     S 

,     MOP 

1TPT 

N  ACV 

»j  g 

'ICI.K 

NC.-S 

SRC 2  J  J>-  0 

COMMON 

NUIAG        , 

HDS             , 

:iGJ           , 

VITB 

•1  rs 

NL3T 

SEC  2  )  »70 

1 

SNA              , 

N  1  J 

NNDS 

vrj  n           , 

S  N  P             , 

N  1 

SET2  ;  1  J0 

2 

SHSGO        , 

n  :i  30 

N.  ■JS 

NP                , 

sso 

N3 

SfcCJ   Uvj 

J 

p                    . 

P10 

P11             . 

PAB             , 

?  A ."  3 

PA               , 

SEC2  0'4'"'0 

1 

pas          , 

P3  3 

PB.'I  P 

pr.ou 

pno          , 

?B 

SEC2<iil  10 

COMMON 

n  03 

PHTAB 

PHI  fcA 

?"I 

PINT 

PL 

SEC 2 J«20 

6 

PL1              1 

m           , 

4  s 

PT               j 

3 

oro         , 

3EC2  m  10 

7 

31 

HA                . 

RAF 

HAXO 

F  \X 

PS               , 

SE.32  :Ji*aO 

8 

ac          , 

3DELIM 

!-DL  LOM 

pnrrs      , 

5  DO MS       , 

a  f .  ? 

3C:2''i30 

9 

BEB 

RF1S 

R^fLIM 

Ri',33           , 

RM3 

PHOGB 

sjr-7  0'i^o 

COMMON 

a  HO  G 

Rii'lGS       , 

8  HOLD 

FHOLB       , 

artou 

RM  )L3 

SEC2  3U  7  0 

1 

SIM              , 

T                1 

RH               . 

HOALS       , 

R  0  A  L 

P0BL3       , 

SEC2  0U'lO 

2 

ao^L 

son         , 

HO                , 

R                   , 

R  S  L I  a 

n3 

SEC2     JO 

J 

avn          , 

av           , 

a  frt*         t 

j                   ( 

'- 1            1 

■;2                , 

3  EC-'  O^GO 

U 

5  i               , 

3-t           1 

SA              . 

SB                . 

3TJ              , 

3  r . 

33-/  53  10 

COMMON 

511  J 

JMTN 

S  MJ  1 

SMJ2 

3MLC           , 

S'lLD          , 

3F-:2  ,320 

6 

SRLE 

3MLF 

SMLG         , 

SM 

5  :>d  1 

SOJ2 

SiC2>)5  ;0 

7 

sup          ( 

30                , 

303  M          , 

iJ  3 

<;-*•• 

3  «  1 

<■  £*  "1     '  S  '4  J 

8 

T                  , 

T1               , 

T8>~AY       , 

TU'-WYI     , 

n  ji  b       ! 

T.3  J              . 

SEC20V0 

9 

T"                , 

TGS            , 

THIB 

t;iij 

-  ii         , 

THIS 

5EC2  J3r,3 

COMMON 

T  KD  M           , 

THOO          , 

TIIO             , 

THOS 

TH               , 

tk  r 

SEC20570 

1 

TLMB 

TLO            , 

TI.               , 

.,,  .. 

rsT         , 

Till 

S."C2  05"0 

2 

T.IM3        , 

TViOM 

TWO  MS 

vl                < 

V2 

VAP             , 

SEC2  >rno 

3 

vnn          . 

7BP3          , 

IfBB            , 

»3MSQ 

V  3 

Vb3  0          , 

S  EC?  06 3 3 

II 

VBS             , 

VGO             , 

v.;            , 

»r,SQ 

7  ;n 

v  1 ',  r, 

COMMON 

YT»  LB 

VIAL 

7I3G 

V3LD       , 

7 ;  a  L 

713,1 

3  EC  2     ft  ?  0 

6 

7T.GBS 

7  I  T.3 

VTLM 

VILMS 

V  L  ^              j 

V  LO 

3EC2')ft30 

7 

7L 

VL.3Q 

VL3              , 

VS                 . 

"  3  3 

*  A  3  B 

5E-J2  16U0 

a 

W  AG             , 

t<  AGS           , 

WAL             , 

^BG3 

*  BG 

'^n;3 

S"C2r><>'30 

9 

»BL              , 

W  G  L»             , 

WG                . 

wnj 

•  IB 

VIM  3 

3  33  2  )h6  3 

COMMON 

«OM              , 

.0M3 

*                    . 

X10              , 

<  1  1 

▼CLK           , 

SEC2  )o70 

1 

XINT          , 

XP               , 

XS                , 

XX               , 

X  X  A             , 

II                 , 

SEC2  06P0 

2 

YI3 

YO 

TOS              , 

zzz         , 

X3TMT 

SEC2  JbJ0 

DIMENSION    M.  (10)  " 

5EC20700 
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DIHEHS ICN    NOR  AY (75) 

S2C2  0710 

01  HENS  I  MM    PATF  (S  )•.(.:  A3  E  (3)  ,0ID<81 

1  C  (6l,APj(2,75)   .XXA(t)f  ,0  315  AY 

2  1  (100)  ,  UnAY(75)  ,  |1T(  Iri)  ,DINT(8) 

eouiv;.  l-kcc.    (see  at  it)  ,  dbay  m  j 

IF(N3-<1T-3C)    1,30,2 

, XPf 2,75)  ,PL1  ( 

SEC20720 

(1J0) .DSHAY1 

(100) ,TnRAY(100( , 

.TURAYSEC2J730 

SEC2O7U0 

5^C2>;750 

SEC 20 760 

1    CALL    DUHJ? 

SSC2 J77) 

2    IF  (SST«T-1«5)  1  ,  1'»5,  3 

SEC207  '.0 

3    IF  (N571T-H1  I  1  ,1b  1.  U 

tt    IF  (SCTHT-1  1«2)      1,  11  42,  5 

S EC 2 0710 

3  EC  2  1800 

5  continue 

SEC2  JiHO 

c 

SEC2  H20 

c 

SET    ITERATION   COUNT    ZFRO 

SEC2  1-1  "10 

c 

NNA=0 

SEC2  J>«»3 
SEC2'H50 

c 

3~C2  Jf1f>0 

c 

SET    INITIAL    CONDITIONS     INDICATION 

SEC2  )87J 

c 

SET2  l-^O 

c 

•*«*»*•*••*••**    STAT2.1ENT    NO.     20 

♦  ••♦♦•♦•••**««»*«***«»«»«««»«»*«c;r< 

c 

****«•••*•••*«•••••*••«***■•**•««••• «••••••**» ••«••*••••**•««*•<•«  t;r          i  i-i  ■) 

20     1FP=1 

SI'CM'II!) 

IF "0=1 

• 

3E"2  ))>■) 

ISLX=0 

SEC2  09U 

KAf=1 

SEC  2  >950 

NNN  =  0 

jE::2  )^  1 

HO=0.0 

S2C2  I")  'J 

?III  =  PHi  »0.01  7'»532t» 

SEC2  >W) 

AT=100000.0 

::sc  '  !9i0 

c 

3  EC  2  10  )0 

c 

HITTALIZE     PRINTOUT    CCflNT 

SE-2  '010 

c 

!i  N  ?=  1 

SEC2  1020 

3_.-2  10  i) 

c 

S"2  1  JuO 

c 

SETUP    BIDPOIST    AND    ENjTOINT    INDICATION 

32-2  1O50 

Q 

1ST    =    1,     NEXT    2NTHY    TO    STATEflEST 
QUANTITIES. 

32 

COMPUTES 

MIDPOINT 

SEv"2  1  JdO 

c 

SEC2  1  170 

c 

INI    -    3,     HEXT    ENTRY    TO    STATEMENT 

32 

COMPUTES 

2NDPOIST 

3  EC  2  ICoO 

c 
c 

QiJANTITIZS. 
IHI«1 

SEC2 10"0 
SEC2  tvn 
3  EC  2  111  0 

c 

SE"2  1120 

c 

RESET    THivOAT    INDICATOR 

S  EC  2  11  3  0 

c 

J1THT    =     3     -    THROAT    NOT    REACHED 

SEC2  1  1^0 

c 

1THT    =     1    -    TilRCAT    REACHED 

3  EC  >  1  150 

c 

RTHT=0 

3  EC  2  11 '.J 

sec  2  1W0 

c 

SEC2  1150 

c 

8ESFT    D3     ITERATION    COUNTER. 

SFT2  i  no 

c 

NNDS=0 

5  2C2  12  10 
SEC2  12  10 

c 
c 

RESET    OPTTflOa    S     ITERATION    COUNTER. 

SiX2  1220 
SEC2  1210 

c 

NNSO^O 

3  EC  2  12'10 
SEC  >  12'>0 

c 

3  EC  2  '2'jO 

c 

BACKSTEP    ?     FOR    FIRST    ENTRY    TO    30 

3SC2  127Q 

c 

P  =    PO-DPl/2. 0 

3EC2  -2  '0 
SEC2  '-'O 

c 

s ec 2 i  no 

c 

SETUP    INITIAL   CONDITIONS 

rj  7r.MU 

c 

TG=TGO 
TL-TLO 
YG-VGO 
VL=VLO 
D=DO 

28    X=0. 

27    DTL=0.0 
DS1=0. 
R  =  0. 
DTG=0.0 
AT=0. 

JEC2  U'O 
3  EC  2  1  3  JO 

ssr2  1  mo 

S-iC2  1  350 
SEC2  1350 
5EC2  l  170 
SE"*2  1  380 
SEC2  1  310 
SEC2  moo 
SEC2  miO 
SEC2 1U20 
3EC21U30 
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7GS0=VG«7G 
¥tSQ=?L»»L 

1H0=THC0 

THI=TH tO 

DELT=TG-TL 

DELV2  =  VGSQ-VLSQ. 

031=0. 

R  =  0. 

DTHO=0.0 

DTHIO.O 
C 

C  «»♦««»«»»•*««««    STATEMENT    NO.     30       ••»*«•»«««»*»»«***•»•••*«••••*• 

r  ««»««•  ••*••*•*•*"•**•*'*«*•*••*•«•••••  «♦«•»•«»«•»«•*«*««««««  *«**•*«•  3 

30    NS7:iT  =  9999 

IP  (KFP)  b31,6  30,630 
C 

C      THI3     13    FIBS?    POINT    -    HALF    STEP    ?    BT    INITIAL    DP    STEP-SIZE. 
C 

b31    F=P*DP1/2.9 

GO    TO    6  32 
C 

C      THIS    13    SOT    FIHST    POINT    -    HALF    STEP    PBKSSORE    tlT    STEP 
C  SIZE    P°. 

C 

630    P  =  POP/2.0 
6J2     IF  (?)  I  1 30, 11 30,131 
C 

C       STEPPING    PRESSURE    HADE    IT    NEGATIVE    -    PRINT    DIAGNOSTIC,     AND 
C  DATA    COMPUTED    TO    TUIS     POINT    AND    GO    TO     NEXT    CASE. 

C 
1130    WRITE     (6,930) 

LL=1 

GO    TO    50  0 
C 

C       EXTRAPOLATE    TG    AND    TL.     PRINT    DIAGNOSTICS    IF    THEY    GO 
C  NEGATIVE,     AND     PBINT    DATA    COHPUTED    TO     THIS     POINT. 

C 

131  CONTINUE 
TG  =  TGi-DTC/2.  0 
IP  (TG)   1  U.  132,  133 

132  WRITE     (b,931) 
LL  =  2 
GO    TO    500 

133  TL=TL*PTL/2.  0 
IF  (TL)  '  3«,  l]»,  135 

13«    KBITS    (b,932) 
LL  =  3 

GO    TO    500 
C 

C       INTESPOLATE    FOR     PBO    FOB    THIS    TL 
C 

135  N=9 
SN  =  ^ 

CALL    TNTPP  (PCO.N.TL,  P) 
IF  (N)  1  36,1  )6,  1  37 

136  WRIT1:     (b,913n)     tT(NN),TL,P 
LL=3 
GO    TO    500 

c 

C      CHECK    DFS0.1INATOB    OF    207ATTON     FOR     PARTIAL    PRESSUR2 
C  OF    COrroNENT    A,     PHIST    DIAGNOSTIC    IF    SUFFICIENTLY 

C  CLOSE    TO     Z2DO    REKDERIHG    PA     INFINITE. 

C 

137  IF  !AR3 ( 1.0-H»PBO) -. 000  1)   136,  13  8,  1  39 

138  WRITE     (6,933) 
LL  =  3 
GO   TO    500 

139  PA=(P-?60)/(  1.  0-H*P3O) 
C 

C      CO1P0TE    PA     AND    ?B.     XT    2TTHEB    IS    NEGATIVg,     PRINT 
C  DIAGNOSTIC    AND    GO    TO     NEXT    CASE. 

C 


3EC7 

4tt0 

3  EC  2 

la  50 

3  EC  2 

U60 

SEC  2 

1U73 

3EC2 

imo 

SEC2 

1490 

g  "^  ) 

H  JO 

3uT2 

IU10 

3EC2 

5J0 

SEC  2 

15  10 

S  EC  2 

52  0 

3  EC  2 

IS  10 

SEC  2 

I5U0 

SEC  2 

155  0 

SSC2 

I5-.0 

SBC  2 

15  70 

SEC  2 

ISO 

SEC  2 

I5'i0 

3  EC  2 

600 

3EC2 

6  10 

S  EC  2 

67  0 

srx2 

6  !0 

SFC2 

6 '1J 

~i  EC  I 

16^0 

?;:'.- 2 

lot»0 

3  EC  2 

h^O 

SEC  2 

1680 

3  EC  2 

610 

r.~cz 

7U0 

3EC2 

7  10 

SEC  2 

7)0 

3  EC 2 

1710 

sec: 

7;  -) 

;  EC  2 

750 

SEC  2 

17'  0 

JEC2 

770 

I7-0 

3  EC  2 

7r>0 

S  EC  2 

110 

SEC  ! 

110 

3  EC  2 

32  0 

..  -.■  i 

1X11 

3EJ2 

bttO 

SEC  2 

H.50 

''.  EC 2 

'",0 

.'"  EC 

•<70 

c  !YJ  > 

Hl'0 

3  EC  2 

H''0 

S  EC  2 

ooo 

""'"  ' 

910 

SEC  2 

"70 

3F.C2 

930 

:>zc> 

''  i0 

SEC2 

95  0 

.  EC  2 

°-,Q 

SEC2 

■no 

5  EC  2 

-}»•) 

9-0 

"J  iO 

3  EC  2 

0  10 

3  EC  2 

'020 

S  EC  2  . 

id  to 

SEC  2, 

juo 

SEC  2. 

'050 

ScZ2 

'060 

S  EC  2  . 

:07Q 

?EC2. 

'0»'0 

3  FC  2  . 

:ouo 

3  EC  2. 

MOO 

SEC2; 

>110 

SEC2. 

;120 

SEC2, 

2130 
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IF(PA)  439.440,440  SFC22140 

439  WRITE  (6,9439)  SEC221S0 
LL=4  SEC221bO 
GO    TO    500  SEC2 7170 

440  PB=P-PA  SEC22190 

IP  (PS)  441,442,442  SF.C2  2190 

4U1     ilBITE     (6,9440)  SEC22210 

LL=5  SEC22210 

00    TO    500  5£C2  22?Q 

C  3  EC  2  2  2  <  3 

C       INTERPOLATE    INTO     BOLECULAR    WEIGHT  OP    COMPONENT    A                                                            SEC22240 

C            GAS    TABLE    AT    TEBPEFATUR2    TO.  SE"222cjO 

C  SEC222«0 

442    N=3  3EC22270 

SN^J  3?.C,:  2.>'<0 

CALL    INTRP[8AG,N,TG,PA)  3F."22:"0 

IF  CM  1  14  1,  1141  ,143  5FC22300 

1141  LL=5  SEC2  2  310 

1142  BRITE  (6,<n3b)  HT(NN)  ,TG,PA  SEC22320 
SSTBT=99  99  SEC22310 
GO    TO    500  •                                                     3EC2  2JU0 

C  SRt:2  2350 

C       ISTEREOLATE    II1TO     BOLECOLAH    WEIGHT  OP    COBPONENT    B                                                            SEC22J'.0 

C            GAS    TA1LE    AT     rEBPEPATURE    TG.  SFC22370 

C  SSC22JH0 

143  M  =  4  SEC22  !"0 
NN=4  SEC2  2400 
CALL  TNTFP  (S  ijG.N,TG,PB)  SEC22410 
IF  (N)  14  4,144  ,  150  3EC22420 

144  LL=6  SEC2  24  30 
14b     »RITE     (b,)136)     KT  (N N)  ,TG  ,P0  SEC2 2440 

NSTBT='J999  SEC224S0 

GO   TO    500  3EC224t>0 

C  SE-22470 

C      COBPUTE    BEAN    BOLECOLAR     W SIGHT    OP    GAS    1IXTMRE.  SEC224U0 

C  SHC2  2'»'10 

150  WG=(WAG«FA*WUG*PB)/P  SEC22590 
C  SEC  2  :5  10 
C  COBFOTE  RATIO  OP  FLOW  R»T2  OF  LIQUID  \  TO  FLOW  SEC22520 
C  RATE  OF  LIC'lIl)  BIXTTPE  OP  A  A 'ID  0  -  A  LPIIA  SHC22SI0 
C  3EC2  254Q 

ALPHA=  (  <WAL/«BL)  *H«  P.\)  /(  1.3*  (<  WAL/W3  L)  -1.0)*H*PA1  SEC2  2550 

C  S  EC  '  ,ri'-0 

C      COBP'JTE    RATIO    OP    FLOW     DATE    OP    GAS  3    TO     FLOW     HATE                                                            SEC22570 

C            OF    GAS    BIITURE    OF     A    AND    3    -    BETA  SEC2 2530 

C  SSC2  25')0 

BETA= (SEC«?B)/  (WG*P)  SEC2 26  )0 

C  SSC2  2o10 

C      COBPUTE    RATIO    if     PLOW     R>TE    OF    LIQUID    IIXT'JRE    TO  SSC22620 

C            PLOW    "ATE    OF    GAS    BIXT'IRE,     R.     CHECK    OENOBTNATOS    OF  SEC22630 

C            EOUATTO'I     FOk     F     AND    PRINT    DIAGNOSTIC    IF    SUFFICIENTLY  5E"22hUQ 

C           CLOSE   TO    ZERO.  S  EC  2  2  f,  lj  0 

C  S"2  >**Q 

IF  (APS  (  1.n-(  1.  0«PC)  *AL?HA) -.3001)   151,152,152  SEC22670 

151  WRITS  (6,915  1)  3EC226R0 
LL=7  5EC22b^0 
GO    TO    5  00  SEC 2  .'7  10 

152  DR=(  (RC-  (1.t3C)*BETA)/  (1.3-(1.  3*RC)  «  ALPHA)  )  -S  3EC2J71J 
R-R»DR  SEC22720 

C  3F.C22710 

C       COBPOTE    GAS     DENSITY     -     RUOG  SSC22740 

C  SSC22750 

iHCG=  (WG«P)/  (TG*10.  732)  53C2.'7<>a 

c  '.cr.-1  n  '0 

C       INTERPOLATE    IN    TABLE    FOB    DENSITY    OP    LIQUID    A    AT    THIS  3EC2 27H0 

C            TEBPEPATMRE.  3EC2  2730 

C  t;SC7  2f300 

N=10  SEC22810 

(iN  =  10  SEC22920 

CALL    INTGP  (ROAL.N.TL.P)  SSC22330 

IP(N)  160,163,  162  SEC22840 

C  SEC22S50 
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c 

C      TABLE    LIMITS    EXCEEDED    -    WRITS    DIAGNOSTIC. 
C 

160    11=8 

16  1     BRITS     (6,9136)     HT(NN),TL,P 

NSTMT'4999 
GO    TO    50  0 

c 

C       INTERPOLATE    IN    TABLE    P03    DENSITY    OF    LIQ07D    B    AT    THIS 
C  TErtPEPATURE. 

162     N  =  1 1 

NN  =  11 

CALL    INTBP(?08L,N.TL,P) 

IP(N)  161,161  ,163 
C 

C      COMPUTE    DENSITY    0?    LIQUID    MIXTUT.E 
C 

16  3     BHOL=1.0/(  (ALPHA/POAL)  ♦  (  ( 1  .  0-A  LPH  A)  /ROBL)  ) 
C 

C      COfirUTE    PLOW    SATES    0?    LIQOID    MIXTU8P    AND    OP    GAS    1TXTURE. 
C 

EMG-FMT/  (1.3 »R) 

Bflt=R»KHG 
C 

C      COMPUTE    RATIO    0?    GAS    VOLUME    PLOW    TO    LI3  0ID    VOLUME    PLOW. 
C 

PV=RHOL/  (R*R!IOG) 
C 

C       INTERPOLATE    IN    SPECIFIC    NEAT    TABLES    PJB     A    AND    3    AT 
C  THIS    TE1PJHATURE    AND     PRESSURE. 

C 

N=1 

NN  =  1 

CALL    INTRP  (CAG,N,TG,?A) 

IP  (H)   lr>5,  1o5,  170 
165    LL=9 

GO    TO     1142 

170  N  =  2 
SI  -2 

CALL     INTBP  (CHG,N,TG,PB) 

LL=9 

IF  (N)  1u5,  143  ,  171 
C       INTERPOLATE     INTO     LATENT    HEAT    OP    VAPOBIZATION    TABLES 
C  FOR    A    AKD    U    AT    THIS    TEMPERATURE. 
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N  V  =7 
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172  H  =  S 
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RETUPS 
60    NS~rT=60 
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932  FORMAT (1H0,7X, 14HNOSPOSITIVE    TLi 
938    FORMAT {  1H0.7X,  11HINPINITE    P\) 

9136    PORMAT  (1H0,7X,  WHUUTSIDE    RANGE    OP    ,A6,7H    TA3LE.,5X, 
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DIBFNSICN    'IIHAY  (76) 
DIBENSTON    DATE  (5)  .CASE  (3)  ,  Qin(8) 

1  C  (6)  ,\V  (2,  75)  «XXA(8)  .  DSR  AY 

2  1  (1001  ,  TtiAf  (7*>)  ,  !1T(  IP)  ,01  NT (8) 
EQUIVALENCE  (N  DR  AY  (  1)  ,  DR  AY  ( 1)  j 
I?  (NSTKT-UO)  1,U0,2 


,XPC2,75J  .PtlMO)  , 

(100) , DSRAY1  (100)  , TURAY(IOO) 


1  CALL    DOfll? 

2  IF<NST"«T-50)  1,50,  1 

THIS    IS    FIRST    POINT    -    STORE    TSITIAL    PROPERTIES    FOR    USE 
AT     END    OF     FIRST    INTERVAL. 


...............    5TATEKENT    NO.     UO       ••*•••••«••*••*««•»•••«*•«• 

»**•*••••«•••*<*•••••••**«**•*••••••••••••••*••••**•*•••• «**t 

flO     BPP-0 

NSTrT='»999 
HLA1=HLA 
HLL'1  =  IILB 
CAG1-C\G 
CEGI^CBG 

COBPUTE     INITIAL    FLOW    RATES    OP    COMPONENTS    A    AND    3. 

EBAG=<E1G*WAG*PA)  /(  *G»P) 

E"1b  ;-(;!« G't^G'FB) /(WG«P) 

DB=0.0 

IF(Vn|  175,  175,  17« 

IP  (VI 

A=  10'. 

i<A  =  A 


1714     IP  (Vt  )   1  75,  175,  17b 
175    A=  1000000. 


GO    TO    HI 
COMPUTE    INITIAL     AREA    OP    NOZZLE. 

176    A=1U'*.  »EBG«(  (1.0/  (RHOG«VG)  )  ♦  (R  /  (8H3L»VL)  )  ) 

RA=PV»VL/VG 
ttl     AT -A 
PT  =  D 

AP  (1,  1)  =P 
AP  J?,  I)  =A 
KAP=2 


C0BPU1?!    3L2?    VELOCITY,     VS ,     BEAN    PREE    STREAM    VELOCITY,     VB,     AND 
SLIP    FRACTION ,     S. 

U2     VS=VG-VL 

VB=  (VG»R«VL)  /(  1.0  +  R) 

ve.sy=   ??>vn 

S=VS/VB 

IF  (»r.£0)  180,  179,  180 

NOZZLE    TS    CIRCULAR    -    COMPOTE    DISTANCE    PROB    NOZZLE    AilS    TO 
•  ALL    OP     NCZ7.LE,     YI. 

179  TO-SQRT  (A/3.  1U 16) 

Ti=n.l 

RI=0.0 
GO    TO    4  3 

ROZZLF    IS     ANNULAR     -    COBHITP    RADII     AND    DISTANCES     TO    WALL 
OF     ANNULAR     NOZZLE,     HI , RO, Y I , YO. 

180  T3?=  (RAjCC**2)-  MA»COS  (PHI)  )/(2.0«3.  1  U16»  ) 
IF  (T5T)   181,  162,  182 

131    .hi:?    (*>  ,y is  i j 

LL=1  1 
GO    TO    5  00 
182    3I=bpR?  (TST) 

BO*(RAXO**2)  +(  (A»COS (PHI) )/{2.  0*3.1«  16)) 
80=SQRT  (SO) 
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TO=(l<0-i=AXC)  /COS  (P'!I) 

BBITE    LINES     1,2,3    OP    OUTPUT    AND    GO    TO    30. 

43    IP  (LCT1-12)  644  ,643,  6U3 
64  3    LCT1=0 

93ITF     (6,964  3) 
LPGCT»tl'GCT*  1 

644     WRITF     (6  ,  11)  1 
WRITE       6,100  2 
WRITE     lb.  VjO  3 
LCT1=LCTU9 
GO    TO    30 

niDPCINT    OF    I'TEPVAL    -    COHPUT?     ITD-POINT    PAP*»^TEaS. 

HESnT    .1IDEOINT/ENDPOINT     INDICATOR     SI     NEXT     ENTRT     TO     32 
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570 

5  MO 
510 
600 
n  10 

6,n 

6  11 
hJO 
ijSO 
660 
671 
siO 
(,  10 
711 
710 
72-0 
719 
74  0 
7S0 
760 
770 
7."  3 

7  JO 
110 
110 
*23 
H  io 

H40 
H50 

IhO 

•170 

-i"0 

"0 

'100 

a  10 

>?) 

1  10 

940 

ISO 

960 

173 

9HQ 

>  10 

O'M 

2010 

2020 

J  J  3  0 

214  0 

2050 

2060 

2170 

20M0 

2090 

21)0 


SEC32110 


162 


H=  tU 
NN  =  1<* 

CALL    INT£P(VIAL,N,TL,P) 
LL  =  U 

IF  (S)  16  1,  161,2  15 
215    N=15 
NN=15 

CALL    I'lTnPIVIDL.N.TL.P) 
LL  =  13 
IF  <N)  161,161  ,216 

COBPUTF    1EAN    THEBBAL    CONDUCTIVITY    OP    GAS    aiJCTOlE,     KKGB. 
UA    AND    ?E    ARE    USE    S U3S LQUENTLY     IN    DBTEPflTNING    HKGB. 


216 


VI  BL 


VIL«=,1L?HA*VIAL»  ( 1.  0- A  LPS  A)  • 
T1  =  (5JnT(SA*S3)/,fG»1.0)»0.25 
T2=1.0»SA/TO 
T3=1.0*SE/T5 

TU=T2/T3 

T5  =  (wag/ufig)  »*0.  75 

T6=VIAG/VIBJ 
T7=SOHT iT6«r<*«T5) 
9A=T1/72*  (1. U»T7i  ««2 
B8=T1/T3*  (1. 0*  1.3/T7)««2 

I8TEHP0HTE    IN    THFH.1AL    CONDOCTIVITT    TABLES    FOB    COBPONENTS 
A     AND     3     IN    GASEOUS    STATS. 

N=12 
NN  =  12 

CALL    INTFP(HKAC.N,TG,P) 
LL  =  13 

IF  (N)  1U5,  11*5,220 
220    H=  f J 
NN=1  3 

CALL    IMTPP  (HKBG,N,TG,P) 
LL=13 
IF  (S|  1i*5,  1«5,221 


IP    9ETA=1,    FIRST    TER1    OF    HRGH     IS    SET=0 
I?    BETA=0,    3i.CCND    TEhfl    OF    HKG.1    IS    SBT=0 

221  IP(BETA- 1.0)  223,222,223 

222  HKG*1=0.0 
GO    TO    2  2U 

223  !tKGB1  =  HKAG/(  1. 0*  (LET \/ ( 1 . 3-9  ST  A) )  * ( W AG/W BG) «BA) 
22«    IF  (uETA )  2..0, 225,22b 

225  BKGi12= 1.  0 
GO    70    2  27 

226  HKG.r2=HKEG/(  1.  0»  <  (1  .0»3ETA)  /BETA)  •  ( H  BG/W  AG)  «HB) 

227  HKGB=tiKttB1*HKGH2 

CO.lP'iTE     V1,72,R1,    [fEHB    POP     USE     IK    ITERATIVE    L30P    AT 
STATEMENT    NO.     70. 

V1  =  (  (9  9U<*3.6*TG)  /  (<  1  .1*R)*WG)  )  »ALOG 


1       (  (P  +  OP/2. 0) /  (H-0P/2.0) ) 
V2=  (92o6.0tl»"»DP)  /f  (  1.  0*5)  «RHOL) 
S  1  =  (30  0.  C*°:iOG»D)  /VIGB 
IP  (MOP)  5  1,52,01 

opTinur  x(F)    is  to   be  used. 


C  *»»•••*••«■«•••    S7ATERENT    NO.     51       «»•««••«•*•*••«*««•«•«•< 

C  •«•»»•**»***«•»«««««•»««*«»*•»«*»»»•««*•««*•*«»«««•• •«•«*< 

51    C1  =  <Ij»  ALAtt«RI!OL)/  (9.  3»BHGG) 

SBLG=R/ (  (1.0 ♦R)**2) 
16070    KDS    =     1 

KDSCT    =    0 

SNSO    =    0 

NNSOO    =     0 

DSfllN    =    -2.»  (S*<1.*R)/B)  ♦I.OB-Ob 


SEC 

3  2  120 

SEC- 

121)0 

SEC 

12  14  0 

SEC 

1215  3 

SEC 

5  2160 

SEC 

1/170 

SEC 

I21A0 

3  EC 

1  M1J 

SEC 

12200 

SEC 

12210 

SEC 

!2220 

SEr 

i :?.  10 

SEC 

3  2  2  '*  0 

SEC 

1  2250 

SEC 

)22'>0 

SEC 

)22'0 

SEC 

122-10 

S  EL- 

I  2210 

SEC 

i  >.  no 

SEC 

ntu 

SVC 

1  2  32  d 

SEC 

)  2  HO 

3  ?,— 

12  UO 

SEC- 

1  !350 

SEC 

1  >  1..3 

SEC. 

1  >  170 

S  E" 

1  2 .1  '  0 

SKC" 

i :  I  -o 

SEC 

12U  )3 

3  EC 

2U10 

SEC 

>2-t  -'0 

SEC. 

I2U  50 

C  Vf 

1  24'S0 

?ic. 

dU~>3 

S  EC 

1  'uf-0 

sec! 

i  j  i  n 

SEC 

2  '*  °  0 

S  EC 

1  ""*  90 

s  .'.. 

trJ<:3 

J  E  ::'. 

2510 

SEC 

12520 

S  EC 

1  25J0 

SEC. 

C5U0 

2550 

_»  iC 

sec: 

!560 

S  EC . 

12570 

SEC. 

25^0 

SEC 

!5  tO 

S  EC . 

•f..)0 

s  ec 

'a  10 

S  EC 

>620 

SEC 

26  '0 

3  EC 

'VI!) 

IE- 

>r,50 

SEC 

2660 

3  ~  - 

2670 

se;: 

2Sa0 

SEC 

1  2690 

SEC 

2700 

SEC- 

2710 

SEC" 

n~>o 

SEC. 

2710 

3  EC 

27U0 

!750 

*»*»*• •• SEC 

i  :7*i0 

SEC 

2770 

3  EC  . 

2780 

SEC. 

27H0 

SEC. 

2M00 

SEC 

2*10 

sec: 

2«20 

SEC 

2330 

16  3 


DSJ1AX    =     1.0 
GO    TO    70 


1.0E-06 


SPECIFIED    X(P)     IS   TO    BE    OSED. 

52    P10=P»DP/2.0 
PI  1=P-QP/2.0 
PINT=P 10 
KL=1 
GO    TO    1  100 

152  X10=XINT 
PIST=F1 1 
KL  =  2 

GO    TO     1 1C0 

153  X11=XTNT 

GeT     SIFPERENCE    OF    INTERPOLATED    X    VALUES    FSOH 
I(P)     TAULIr 

DX=X11-X11 

S1  =  i;  0.75*  "HOG*  (1 .  0*  R  I  *  PX)  /  (D*R  HOL) 

S2-J4H  3  1.04*  (1 .0*H)  •DP)/RHOL 


S3=M.  J*K)  /2.0 
S4  =  2.  3*DS/  (1  .0»R) 
GO    TO     10071 

INTERPOLATE    INTO    X(P)     TA3LE    FOR    TWO    PRESSURE    VALUES 
AT     EITHER     SIDS     OF    CURRENT    INTERVAL. 

100  CONTINUE 

THIS    CHAHGS    TO    ALLOW    FOB    10NOTONIC    INCREASING    OP     DECREASING    ' 
TEH7.=  PtNT-<?  (1  .  1)     *1.0E-b 

IF  (T"  >Z*  (XP(1,  1)-XP  (1,2))  )   1106,  1  102,  1105 
106    COIITTN'JB 

DO    1U  1     KR=2,KXP1 

TrFY=)tP  (  1,KR)  -PI  NT 

IF  (TER  ?*TEr:Z)  1  101,  1104.1104 

101  tf"7.  =  -t::py 
103  co  ;<  ri3*r  a 

GO    TO     1 1 21 

102  CONTINUE 
KR  =  2 

134    K81=ifB-1 

XINT=XPi2,KR  1)  +TERZ/(XP<1,Kfl)-XP(1,KR1))  *  (XP(2,KR)-XP(2,KR1) 

GO    TO     (1  15 J,  1153)  ,KL 
105    COHTIHUE 

IF  (--rz-0.101)  1108,1120,1120 
10a  IF  (TE3Z+0.001)  1120,1120,1110 
110    TEH7,=-  1  .10«TERZ 

GO    TO     11 C6 
1120     .HIT"     (S.9135)      P10.P11 .XL.TEBZ.TERT,  PINT 

LL=1« 

GO    TO    50  0 
30    NS7ST=30 

RET'JPN 
1142     SSTTr=11«2 

RETUi'N 
145     NSTnT=145 

RETUHN 
16  1     NS?.1T=16  1 

dET'jr:i 
70     NSI1T=70 

RETUPN 
500     NDIAi:=1 

CALL    ')UTP0T(MNN,LPGCT,.ir,EO| 

NS7MT- 1  10 

3ETURN 

FORflAT    STATEMENTS    FCB    9-LINE    PERMANENT    OUTPUT. 

1001     FORMAT  MHO, I3X.1HX.  13X,  1HP.  13X,  1HH,  1 2X,2 HVB, 1 3X , 1  HA , 12X.2HTG 
12HTL.12  X.2I1VG,  12X,2  I3VL,/ ,6  X  ,  1P9E1U.4) 


.TEC 

J-'^'O 

SEC 

)  Z^O 

sec 

1  ?H73 

S  EC 

1  >HH0 

SEC 

1  2rt90 

Srr~ 

!  J^IO 

SEC 

1  /"111 

SEC 

1  21?0 

SEC 

)  J  J  '0 

SEC 

1  J4'l0 

SEC 

i  ?<Jr,0 

3  e~ 

!.:')',o 

SEC 

3.-170 

5SC 

I?-.I0 

3  eC 

i,:no 

"sec 

1J30 

j  EL- 

1  ^013 

SEC 

■  n?0 

SEC 

iO  10 

SEC. 

!  JOttO 

SEC. 

1150 

SEC 

1  10»0 

SEC 

I  1173 

'1  tJ~ 

1  JOMO 

3  EC 

1  hV>0 

SEO^ 

i  100 

SKC 

11111 

J-. 

I  !1J0 

3EC 

1  11  10 

5  ?C 

1    1140 

A  B  L  EC  3  EC 

n  so 

SEC 

i  n»,o 

SEC 

t  31  70 

s  -j: 

i1"0 

3  EC 

I  J  1*>3 

jf 

1210 

jcc 

<  I210 

S  EC 

I223 

S  EC 

l->  JO 

SEC 

I    ','41 

SEC 

i  1250 

SEC 

J  3250 

SEC 

i  r>7o 

J  EC 

J  1230 

SEC 

J  J  2  >  0 

SEC 

13130 

S  "*" 

13301 

SEC 

!  1102 

3  EC 

)  1  30  3 

S  EC 

1  1334 

SEC 

!   1  !1  1 

SEC 

j  i  j:o 

S  EC 

i  j  no 

S~C 

i  nuo 

SEC 

.  1150 

S  EC 

1   1  t-0 

SEC 

!  1370 

S  EC 

1  1  »>j1 

SEC 

(J  JO 

SEC 

1    14O0 

S  EC 

1   1410 

SEC 

1    14  20 

SEC 

1    !4  10 

".EC 

1    1440 

SEC 

3  450 

S^C 

'  ''in ) 

SEC 

)   1470 

SEC- 

<   141'0 

SEC 

1  1410 

SEC 

1  1500 

12X,    SEC. 

3  1510 

SEC. 

13520 

154 


1002     F0PBAT{ 

1H),12X,2I!V3  ,  1U, 

IMS,  13  X.I  HO,  12X,21ir.'/,  1  2  X.  2  in  A,  IX, 

SE'-)  1S10 

15HALP.1A 

,  iox,  misE'i 

lHO.112C.3l 

A,  12T  .  2Ht'k 

A ,  1  2  X  ,  I 
IPOG-1  IX 

HB 

3,  12X,2HSL,/,bX,  1T  JR1U.U) 

SEC?  tr>'»0 

1003  fopbst  ( 

a 

,!ROt.,IU 

)H'».»3  ,  11X,  Mili)r,,  12X.2H.G. 

SEC  3  ir>^0 

1  12X,2H? 

..12X.2H 

,  12X,2HL 

J,/,bX,1P9t1i.al 

SEC  j  IS..  J 

9105     F0:<I1AT( 

1H3.  JSilSTEP    52    - 

PR 

essui'.e  our   of   hah; 

;e  n?   xn   . 

SEC?  1^7.) 

1                IfiHTABLL. 

n   = 

,  1 

~>£  1U.U,  JX,  5UP2    = 
CA3E.,27'l        CUTPU 

E1».  4,/,7X.7HPP0i:T 

:SS.     3  3'.'  1  <SiO 

2              2 'HI    COS  II  so: 

D    10    HR 

KT 

:    OP    LAST 

ITERATION     ,       SKC 

)                1!IFCLLO«3./l 

.20, 3:20 

7 

1 

3  EC  1 30  0  0 

9181     P0RBA7I 

1  H  0  ,  7  X  .  1  1  i 
1H1.1  20  X,< 

'N2GATIV 

s 

.11) 

SE-JJ  36  10 

9f>u3  roEiiA? 

>H?AG3    , 

13 

,/,1H0,2 

111  REAL    TMO-E 

;ht     sec  i  to.'O 

1-121'    f.'O 
EDO 

Z2LS    FLCH// 

3SC1  1P10 

SEC  1  t'>iiO 

SC3ROC 

3l 

CT« 

SECU  TOIO 

cobbon 

TZ2ZAT 

sec«  ;i?o 

DIMENSION    TZ7ZAT  ( 1 1 200) 

SEC'i  J  3)0 

C               THE    ABOVE    COBBON 

BLOCK    FOR 

sonnouriH 

SF.J'4  OO'jO 

C              IT    HOST 

E'i  r.is  p 

R5T    COBBOH    3LOCK 

ST.  JdSO 

cobbon 

A                   , 

ADA;! 

A  LA  B 

ALPHA?. 

,     \  I. '.'  '1  A 

A  L  P  H  B  B 

SEE'i  )070 

1 

AL?!3S        , 

AB 

A?                , 

A3               , 

\r          , 

BA               , 

SSCttOO'JO 

j 

03                , 

3KTAB 

BETAflfl 

peta 

p     i  i  E  T  A  3 

I1 1 

SECU  30 ''0 

j 

C                    . 

CI 

C  AG  '          , 

CA3B3 

.  CAG 

CALBB 

SEC4-J100 

4    CBG1 

,     CAL              , 

CASE 

CBGBB 

CG             , 

CDLflB 

>.\«L 

SrJJ  )  1  10 

cobbom 

CMS 

COP 

CD               , 

CPI.1 

3FTM3 

C?OB 

SEC  J')  120 

6 

cfcbs     , 

CGVi 

CGC 

C  313 

,    »  L  S  B 

CLV 

S  EC  a  "•  1  '0 

7 

CLB5 

C  S  A  V  3 

0 

0'                 « 

DA                , 

DA:r 

3  E"  l  J 1 «  0 

a 

DO                , 

BELLI 

DELI 

[JKLTS 

HELJB 

DBLO 

SEC '4  J  1*50 

9 

DFLOS 

0  r.  LS  I 

DEL  SO 

D2LTB 

n=:LT 

BEL  7  2 

ssca  3i»>o 

COBBON 

UEIAGB    , 

DE1AG 

DE,*.  BGB 

d.-:-.ug 

r>SB«B 

1 1  s : 

3  EC  i  ) 1 7 0 

1 

DL5  IS        , 

DL30S 

DO               , 

DPI              , 

DP 

D.TAf 

SECU   )1  ill 

2 

DKI              , 

DRO 

UP 

DS1 

PSA  VS 

BULIfl 

3EC4   )M3 

3 

dsbax     , 

3SBIN 

n:,r  axi 

n.-.wW 

i):"'.  ES1 

0..r,LS2 

se:»  ^2  >0 

u 

D.GH  ES       , 

DJ 

DSa  1 

DZX2 

or ; i 

PT1B 

3ECI   J210 

COBBON 

OTG             , 

UTHT 

DTiin 

DTL1 

1TL3 

urt.           , 

3EC«02?0 

6 

DT                , 

DVB3Q 

DVG30       , 

DVLSO 

^X                 . 

I1YI 

SEC^  3 2 JO 

7 

On             , 

El) 

Ens         , 

EBAGI1 

E  B  A  G           . 

EB3GB       , 

SECU  3 2 '10 

8 

EBBG          . 

EBGB 

E1G 

PICS 

EBI.ii           , 

"BLB 

3  ECU  )?.50 

9 

F.BL             , 

7ni.s 

EBT 

ESO             . 

FLi^P 

FUX 

SFC4   )?()0 

COBBON 

11                  i 

HJI 

IIKAG 

HKrr, 

,     UK "11 

IIK:;B2 

SECi   I270 

1 

IIK3B 

kki;.is 

'!LA  1 

HI.AB 

H  L  A 

HI. A3 

SEC4  ''?M0 

2 

hlb  1 

!IL!)1 

HLU 

H  I.  ■>.  J 

:i  .1 

UBS 

SE.-'t  02"0 

3 

HO?  E           , 

HT 

IACV 

,    inti 

IBLX 

:jw 

ssct'j  no 

a 

IJH              , 

IHT 

IS  ST 

neso    , 

<                     , 

K  1 

SEC4  'Ml  J 

COBBON 

K2                 , 

XA? 

K  D3  CT 

KDS             , 

K  L 

KS1 

:.-'.  '  i?o 

6 

*°                 i 

KTBCT 

KTj           , 

r  <  p  i 

^  <P 

L 

S  EC  It   JUO 

7 

L1                , 

1.2 

LCT  1 

,     LC 12 

LL 

LP.ICT 

S  EC  U   M  j  0 

8 

L3»             , 

nan 

spro 

BFP 

'.  1"0 

BB                , 

;-j4  ))'jO 

9    N 

,     BO? 

iiTiir 

H  AC  V 

S3 

SCL» 

^crs 

SEC-   »  1*0 

COBBON 

SCI  AG       , 

HDS 

i  GG 

NIB 

N  13 

IL3T 

3 EC 4  )j70 

1 

UNA              , 

m  N  n 

•i:ns 

s  ■;  n           , 

•:  -i  p 

•;n 

SECI  !  HO 

2 

'<  MS  00       , 

:;nso 

NNS 

so            , 

s  -,  ( 

S3               ( 

3FC  J  1  )J 

3 

P                  , 

?  n 

P11 

PA3 

OAK  3 

PA                 . 

SEC-  JU  "3 

u 

PAS              , 

PBJ 

PBB  B 

OBOB           , 

P30 

^B 

3ECI  JU  1  0 

COBBON 

PBS              , 

PIIIAB 

PHIBA 

rtii 

,    PINT 

PL                , 

S  EC't   I'l  .'J 

6 

?L1               , 

PO 

PS 

PT                , 

1 

DID 

SEJ4 3U3  0 

7 

R  1 

PA 

3AS 

PAXO 

"  AT 

.JB 

j  £('ti   U'iO 

8 

PC 

sdelib 

RDELOB 

PI) IB  5 

a  do  is 

P  Er 

;r./4  )4'-o 

9 

P.  El 

R  F.13 

3ES  MB 

R7SQ 

'  'S2 

KH  )GB 

S  ?r  .    wisO 

COBBON 

Elian 

8  HOGS 

T.10L3 

R'lOLfl       , 

/PI 

Pii  )LS 

s  e  :  4  ,  u » a 

1 

RIB             , 

31 

3  * 

R0AL3 

ROAL 

P0JL3 

SEC 4  'Ml HO 

2 

F03L 

ROB 

80 

R                   . 

3S  LIB 

.IS 

SEC't      i  '  ) 

3 

RVB              , 

PV 

TVS 

S 

- 1 

S  ! 

,             SEC't  J50J 

U 

S3 

3U 

SA 

S3 

".ON 

::i  i 

3  EC  4  JS10 

COBBOH 

JIGS 

EBIN 

5BJ  1 

,     SBJ2 

,     SBLC 

SBL1 

SEv^TS"1: 

6 

SBLE 

,    SB  LP 

SrtLG 

SB 

SOJ  1 

,   nj2 

SEC4  :sio 

7 

30? 

SO 

503  B 

p    ss 

,     iZB 

,     3Z0 

,             3EC4  )34  0 

8 

T 

TB 

TohAI 

,     TPtiAYI 

r  a  »  b 

'.■";> 

,              3  EC  4  y'^id 

9 

TG 

TGS 

this 

,     THIO 

f   r  h  i 

,    THIS 

3  EC4  .iShO 

COBBOH 

TilOB 

Til  00 

THO 

THUS 

,   rx 

~K" 

3EC4   )S70 

1 

TLB  6 

TLO 

Ti. 

TI.S 

,   rsT 

,     T'JIB 

,              3  ECU  JV1G 

-1 

T.I  BS 

,  rwoa 

T40BS 

-     VI 

T2 

v.\;< 

,             3EC4  0S90 

3 

VDD              , 

VBD3 

V3B 

,     7B1SJ 

i    y  2 

vaso 

SFC4  0600 

H 

VBS 

,     VGO 

VG 

VGSJ 

VGS 

7IAG 

SECUJ610 

155 


COflBOS 

VIALQ 

,    7  IAL 

6 

VTGI"S 

,    VILU 

7 

VL 

,     VLSO 

8 

HAS 

,    HAGS 

9 

wrx 

,    wgu 

COfl HON 

uon 

,     ■  0 ,15 

1 

XINT 

,     XP 

2 

YI3 

,   yo 

TON    t-L  (1  0) 

d  t  n r  '< 

SICN    N  ri  AY  (75) 

vise 
vil.i 

VLS 
UAL 
KG 
X 

xs 

YOS 


VIBLB 
VIL1S 
VS 

vbgb 

WG3 

X10 

XX 

ZZ3 


I*L 
1.71 

BG 

rr 
1 1 
x» 

JT11 


vi5a 

VLO 
WA3B 

WBJ3 

■  t  .i  s 

XCLK 

yi 


DX.IEKSIQH  DATE  (5)  .CAS?  (3),  0.IDJH)  ,  XP 
1  C  (h)  ,A?  (2,  /5)   ,XX  A  (Fl)  ,DSP  AY  (13 

21  (TOO)  ,PfiAX(75J,HTM8)  .DINTfB) 

EQUIVALENCE     (NDRAXJ  1/  ,  DRAY  !  I)  j 


(2,75) .Pill 
0  )  ,  DS  B  AIM  ( 1 


,TBRAY (100)  ,TRRAY3 


IF  (NST".T-*<>)    1,o0,  2 

1  CALL    DOT 

2  IF(NST1T-6J)   1 .  63,  1 

END    POINT    CP   THIS    INTERVAL    0»    PRESSOrtE. 

COTPUTF    CHANGES    IN    FLOW    PABAHETERS    THIS    INTERVAL. 


;  ••*«*•••«*•*•*•    STATTIENT    NO.     60       ••»•**••«••••*« 

60    INT=1 

NST"T-9?q9 

VB=AB5 (SCRT(VBSQ) ) 

c   conrnTE  new  slip  fpaction,  s,  and  new  distance,  x. 

IF  (P1PPO-  1)  40  0  1  ,4000,40  01 

4000  S=S1 

GO    TO    4"02 

4001  S=S*n3 

4002  X=X*CX 


•*«•»•»«««»»«•««• 

*•••*•**•••*••**• 


COflPUTE    CHANGES    IN    SOUA6E    OF    SAS     AND    L 

0VG3'J  =  (  (  1.0*   (R*S)/(1.0*R)  )  *»2)   'VBS0- 
DVLSQ"  (  (1.0-3/  (1.0*  K)  )  **2)  •VB.SC-VLSO. 

COMPUTE    CHANGES     IN    GAS     ANT     LIQUID    FLOW     RATES 


IQI1ID    VELOCITIES. 
VGS'3. 


DEKAG=  (ErG*WA'*.»PA)/ 
DE«UG=  f  Err,«n  nG«P0)/  i 


;*p)  -En ag 

;»^)  -E!1BG 


COMPOTE    CHANGES     IN    GA3    AND     LIQUID    ?  E1P  EC  AT'JB  ES. 


DTL=(1  .  3/CL.1)  ♦  ((  ('!:i*nELT,1*r)X)  /  (f-.J  >.  * 
1  -  (l<lAf»  DEBAd/edLBJ  -  (I!  LB  ft*  OF.":":/ 

DEIT=TG-TL 
UTG=(-  1  .  G/C5.".)  •(  (17G 30/5 00 7 2.0)  *H* 

1  (CLf«*DTL*DtV  (5.  40  31*nHUL.li  »DVLS 

2  ((EEMAT^DSfllii;)  «i~L'/2)/(50  072.7« 
J  (  (HlAHCAGI'CELr)  «DE»1AG*  (HLU1»C 
4DEPBG1  /E."G) 

IF((     l.J     <•     (R     *    CLS     /    CGfl))      ♦      ((HM     • 
1.1    *    VL.1)  )    -     1.)     d075,307b,a076 
8076     OIL    =    1. 
DTG    -     1.0 

IF  (?-">.  S*po)  BO 75, 80 70,3070 
9074    CONTINUE 
C  THIS    LAST     r^ST     ADDED    TO    DELETE    NEXT    ? 

XX  =  P 
C  CHANG0:    TO    SAVE    THE    LAST    P    FOR    PRINT  J 

8075    CONTINOE 
C         COPIFUTd    NEW    rEflPEBATOBES    EOR    LIQUID    \N 
C  IF    EITHER     T5    NEGATIVE    PRINT    DIAGN05TI 

C  TO     NEXT     CASE. 

VGSO=VGSC*DVGSQ 
IF  (VGSQ)  230,230, 231 
230    WRITE     (6,0200) 
LL*15 


D*FilOL«»VL 


D) 


Q/50  072.3)  ♦ 
FIG)   ♦ 
BG1*DELT)  • 

DX)     /     (630.0    •    D 


:lh 


RHOL 


EST    AT    END    OF 

'1027.  LE 

ot  in  sscri. 

D    GAi. 

C    AND    EXIT 

SEC4 

loPO 

sec  4 

)h  10 

STCtU 

JbUJ 

v,"",o 

SEC"  4 

Jb»)0 

S  PC  4 

16  7.) 

S  EC '» 

!-).!0 

SEC  4 

)i>')0 

3  s""  t 

)700 

SEC4 

3710 

SEC4 

:720 

3FC4 

J7)0 

SEC'4 

)7^0 

S  EC  4 

>7S0 

SEC4 

>76  0 

SEC  4 

;770 

SEC4 

37'10 

s-.-.i 

J7'10 

SEC  4 

M'lO 

SEC4 

3-4  10 

J  E  '4 

3820 

SEC  4 

M30 

5  EC  4 

;*440 

s  £<"•'» 

J  H  S  0 

3  EC  4 

j4f.  3 

SEC4 

JiHO 

SEC'4 

)3"0 

SEC  4 

jqOO 

3  El" 'I 

)«300 

SEC4 

"HO 

si-:c  4 

)i?0 

S3C4 

I  '>  4  0 

SECU 

J  i  .  "* 

S-iC'J 

1^50 

SEC4 

i  i.,  .1 

SEC4 

J470 

SEC  4 

I.IA 

SEC4 

,  i"0 

SiC4 

1000 

SEC  4 

■n\i 

SEC  4 

1020 

S  Sr4 

10  40 

r,~z  4 

1040 

S  ~." '. 

1  0^0 

5  SCO 

1  )f>0 

SEC  4 

1  370 

SEC4 

11-40 

SFC4 

1     )    ■■) 

SEC4 

mo 

."  E :  4 

1  1  10 

SEC  4 

1120 

SLC4 

!  1  !0 

SEC  4 

1  lu" 

SE-T  4 

1  150 

SEC1 

11^0 

S~L'4 

1  170 

s  f  :u 

1V10 

SEC  4 

1^0 

S  EC  4 

1200 

Sr.."4 

1210 

SE"4 

220 

S  Z  ~  4 

12  10 

SEC  4 

1240 

SEC4 

'2  SO 

:>  EC  4 

2<>d 

SEC4 

1270 

P"C4 

1210 

n  ec  4 

^"0 

SEC  4 

1  40  0 

3  EC  4 

110 

3  EC  4 

1.120 

SEC4 

3J0 

15  6 


GO    TO    S00 

231  VL30=VL5COVL5Q 
IP('/13Q)  232.  2J2, 2.13 

232  .RITE     (6,9232) 
LL=15 

GO   TO    50  0 

COflPOTE    NEW    ?SLOCITIES    POR    LIQUID    AND    GAS. 


233     VG=ABS (SCHTfVGSO) ) 
VL=ABS  (3C&T(VLSQ)  J 

COMPOTE    PATIO   OF    GAS    PLOW    A3EA    TO    LIQUID   PLOW    AREA. 

RA=8V» (VL/VG) 

COMPUTE    NEW    LIQUID    AND    GAS     ?L08    RATES. 

EMAG=~M AG»0SMAG 

EME<;=EM3G»0E"BG 
DELV2*»GSQ-VLS<J 

SET    0?    INITIAL    QUANTITIES    POB    3EXT    END-POINT. 

DTL1=?TL 

DTO1=0TG 

HLA1=HLA 

HL81  =  riL9 

DELT=TC-TL 

CAG1=CAG 

CC'J1=C^G 

VS=S«V3 

INTERPOLATE    INTO    SURFACE    TENSION    TA3LE     AT    THIS    LIQUID 

TEMPERATURE. 

CALL    TNTRP  (SJG.N.TL,?) 
LL=16 

IP  ('I)  161,161  .240 
IP     DcOPLS?    BREAKUP    OPTION    SPECIPIEO,    COMPOTE    DROPLET 
DIAJISTF."?. 
2U0     IP(MFU- 1)2U),23H,2U3 


2 18     D7=(.317li»S[J)  /(ff,TO»VS»»2) 

IP  (r-n2)  214  i,2U3,239 
239    3=C2 


compute  change   in  nozzle  c ross -s ect ion al  ar2a  since 
last  sn»-?o:nt. 

2u  3  da=144.  0»emg«  (  1.0/(r!iog«  vg|  ♦  r/  (p!iol«  vl)i  -a 

compute  mean  area  between  this  and    "evious  endpoint. 

AM=A»OA/2.0 

COMPUTE    PRFSENT    AREA 

A=A*DA 

IF  (K1EO-1)  b7,f>8,67 

COMPUTE    SACII     AND    DISTANCE    PROM    AXT  >    TO    WALL    DP 
CIRCULAR     SOZZLE. 
«*•**•««*****«*    jTATEMENT    NO.     57       *•»••»•»••••  ••*i««  ***■ 

*••»»«»  «*••*  •  •****«*<■•■«*••*««  •«••••••••*•••«•••  •••••••< 

67     DYO=-.)R?  |A/J.  lU1b)-YO 
riCM=YO*DYO/2.0 
DBO=DYO 
YO=YO»DYC 
HO=YO 


SEru 
SEC« 

3tru 
3  EC  J 

secu 

SECH 

SEC  4 
SEC1* 
SEC  "4 
SEC4 
5EC4 
SEC4 
3  ECU 
SECU 
SECU 
3EC4 
SEC 'I 

:;  ec  4 

SEC* 

czcu 

<^E~4 
P  EC  4 

SiiC  4 

S2CU 
SSC'l 

.""'.'4 
SSCU 
S5CU 
SEC  i 
5  EC  4 
SEC* 

■;;c4 
ssca 

••:  :k 

3SC4 

■  i;c4 
SF.Cu 

^  "  _■  ■» 

SSfT'l 

Sr.CU 
SEC1* 
S  P.C  * 
SEC* 

SF"U 

SEC  4 

Jf-r;  , 

SF.C4 

SEC  4 
SEC1* 

SEC'4 


EC  t 
EC  4 

ecu 

EC  4 
ECU 
ECU 
?.C3 


EC  4 

£  ;u 

EC. 
ECU 
ECU 

~CU 

;fcu 
>ecu 

>EC« 

;ec4 

J  EC 'I 


14  0 
)  5  0 
3f.O 
370 
)"0 
1  )0 

4  10 
4  10 
4  70 
4  10 
44  0 
4C0 
4*,0 
4  7J 
4'<0 

4  )0 
500 
510 
ri"0 

5  JO 

r)UJ 

550 
Si,  0 
070 
'j-iO 
b^O 
(,00 
513 
ii  20 
5  30 
>j40 
o50 
650 

ft '10 

>,->o 
7ro 

710 
7">0 
"MO 
7U0 
7j0 
760 
770 
7'0 
7°0 
K00 
HI  J 
•320 

•110 

"  *  3 
"<5j 
...  ) 
flTO 
[inO 
M''0 
10  0 
310 
0?0 

940 

9*0 
<-.<o 
WO 

,i;>3 

2000 
2010 

;0">0 
^330 
2  040 
2050 
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MIK  =  ').0 
DEM    =  0.0 
DELSI=J.O 
FOELIM-O.O 
CFIfl=0.0 
rail  =0.0 

GO    TO    6  J  SECU  2  7*0 

C  SEO207Q 

C         COMPUTE    -JECnETnY    OF    ANNULAR    NOZZLE    AND    BOUNDARY-LATER  SECU  "Ja0 

C            GROWTH     *NC    JHEAB    FOR     DNSH    HALL.  Sif'UVO 

C  SFC4.M00 

68    hAX  =  '?AXP-X*S  TN  (PHI)  SEC'42110 

IF  (PAX**2- <A»C03  <rHI)  )/(2.0«3.  1416)  )  24 1,242,242  SEC4  2120 

241  HRITK  (6,0  24  1)  SECU ^130 
LL=17  SEC42140 
GO    TO    5  00  5  ECU  2150 

242  DRI=S.PT  (t;AX**2-  (A«C03  (PHT)  ) /(2.3*3.  14  16)  ) -RI  32"lM»l 
DBC=Sg?T  (r<AX»*2»  (A*  COS  (PHI)  )/(  2.0*3.  14  15))  -BO  S  ECU  1 17  J 

ph='  r*Dsr/2.0  s^r4  2iao 

hl  =  t'l*  0P  I  SEC42190 

R0n=,iO»DBO/2.0                                                                              •  SEC4  2200 

RO=&O»0KC  SEC4 i2 1 0 

UYI=(RAX-BI1  /  (COS  (PHI)  )  -YI  SECU 2220 

DYG=  (2  l-FVX)  /    COS  (PHI)  )  -TO  SECU  >2  )3 

*I  =  lfI*,jrT  SECu  2  !40 

YO=YO*0YC  J"CU  '.:so 

C  SECU  WJ 

c       confute   ancle  o-   nozzle  inner   wall  relative  to  axis.  sec*2270 

BIB*  (A  rA  N  (DYT/DX)  )  SEf'4  22  M 

MI«!*WJ »»57. 29578  S3C4 J  JJO 

246     DTHI=3.5*CFIK*  ((;  *»8K)  /(1.3+R")  )  *DX-     THIN*  SEC42310 

1                 (  (  1  .14  I  »D  VBS',0  /VBrSO-OA/AJI+DfU/ Fill)  SEC42I20 

T'.'IM  =  (CFia«RIIOl*»LSQ)/  (65S9.6*  (1.0*R»)  j  SEC4  2  3  3  3 

th i  =  ri i  ►  C~HI  sec 1 1  !U0 

DEtl'IO.  2d6«THI  SEC42353 

DEL"I= 1 . Z <S7*?HI  fSF.C'l   !36Q 


69    DTSO»  J.  5*CF3H*  (  ("N'tiM  /(1.  0*B«)  )  *DX-THOH*  3EC4J370 

1  ( (i .  iui«nvn:;o) /vL<f!sg-oA/Ar»ono/Ror.)  skcu  .?  j'io 

r«GH*(OFCI1*iiHOL*VL5(})/(6559.b*  (1.0*5  A)  )  SL''4  '  ) ''0 


THC=T1I0*  CT:,'l  SECU  JuOO 

DELO  =  IT.  2<36*THO  :j.'J"m 

oELin=i .  23ci7*tho  -;e.'».:u:o 

C  SEC'44i»'0 

C         COMPUTE    ANGL"    OF    NOZZLE    OUTER    WALL    RELATIVE    TO    \XTS.  SECU  ^UUfl 

C  -.-'•'  >U50 

*0»=ATAN  (DYO/DX)  3  EC  •    '  » ■  0 

aOK=57.2'35  M»«C!1  SEC4JU70 

C  SECU  :'l  <0 

C         COMPUTE    (ISAM    VELOCITY     (INCLUDING  30UNDARY    L  A  Y  SiO  .                                                      SECUJ4"0 

C  SECU 2500 

251     V3D=VU*  (  1.0-  (<2.0«3.  la  16)/A)  •  SECU?510 

1             (rc«THO»Ri»T!ii)  )  "L":a;s?o 

GO    TO    6  1  SECU   !5  t3 

C  SEC 4  '54  0 

C          IF    AREA     LES3    ZPRO,     NOZZLE    13    CONVERGING    AND    THROAT    HAS  SECU   !550 

C             NOT    JUST     eEEN     PASS"D.     IF    NOT,     NOZZLE    THROAT    (1AY  SEC4 2S60 

C             HAVF    JUST     BEEN     PA13SCD.  SEC42570 

C  SSC4  >5H0 

61  IF  (A-AT)  66,62,62  SSC425O0 
C  SECU 2600 
C  ADVA!.-CE  STEP  COUNT  AND  RETOHN  TO  STEP  30  IF  1AXIS01  3EC42610 
C  STEP  COUNT  NOT  REACHED.  SECU'623 
C  »EC4  2'J10 

62  nns=';ns*i  srcupnuo 

IF  (NNS-SS)  30  ,260,260  5EC4  ,'u50 

c  s:.:«  ^ho 

C          INITIALIZE    TB    AND    C0HMTER3    AND    GO    TO    STEP    1U0    TO  SECa^b^O 

C               COHPRTE    EARRSD    QUANTITIES.  S3C4 26*0 

C  SECU 2690 

260    T8*TL  SECU  .'700 

NMS^O  S2C42710 


16  3 


SNB=1 

GO    TO     1U0 

C 

C         OUTPUT    MAS    JUST    BEEN    PHTNTSD.        aETURN    TO    STEP    3D 

C  IF    TTE3ATIOS     IS    NOT    COdPLETED. 


C 


63     NNP=S'IP*1 
N3TlT"=3y 99 
IF  (NNP-MF)  30,6tt,6U 

6U  PU<1)  -XS 
PL1(2)  =  PS 
PLlhi  =BS 


PL  It'll  =VES 
PL1    5)  =  AS 

PLUM  -  :gs 

PL1  (7)  =  T13 
PL!  (nj  =  VGS 
PL1 Nl  =VLS 
PL1  I  131  =  1.0 
HPITE     (18)     PL1 

nn=nn»  i 

264    CALL    OUTPUT     (N HH, LPGCT ,flGEO) 
GO    TO     110 
66     AT^A 
PT  =  P 

xs-x 

PS=P 

tlj=tt, 

VG3=V'J 

ves=v3 

AJ  =  A 

TG3=TG 
VI  3=V7. 
V33=VS 
S3  =  J 

nn=o 
pn3=:v 

PA3='5\ 

HLi"l!S=ALEIU 

BET,\:;=  JETA 

E1'-,3  =  E1G 

E9  LS  =  E  .1 L 

EHCGS=PHOfi 

RHCLS=BHCl 

HAGS -3 AG 

haG5=a3G 

KGS=tiG 

TA3="A 

Pe3=?i3 

HLA3="LA 

H  1 123  =  i!  L  8 

SIG3=3IG 

CGK3=CG« 

CL.^i^CL.I 

VIG*S=V IGN 

VI  •..•*::  =  vil.1 

HK<2:iS='!KGH 

fiEr3=3EM 

C0TS=C3 

Y03=Y0 
BOH5  =  WO!1 

TH03--MO 

DELOS^ELO 

DL30S=Dci.50 

RDOMS=Kr>ELUH 

CFC.TS  =  CFCf1 

T«OflS=TWCH 

VSDS  =  '/30 


5  ECU 

272Q 

3  ECU 

^710 

3  ECU 

J  74  3 

3ECU 

V7S0 

3  ECU 

^7',0 

3  ECU 

,770 

Sc.CU 

'7  10 

3  ECU 

^710 

3  ECU 

:aoo 

SF."4 

J -110 

S9CU 

!O20 

3E"U 

jnn 

3  tCU 

>'iuo 

3ECU 

:hso 

SECu 

>360 

secu 

JH70 

3ECU 

!«") 

SECU 

1910 

SCC4 

"7 'JO 

SECU 

^'110 

srru 

:*)20 

3  Ecu 

mo 

3  EC  4 

'  'uo 

SECU 

J7-0 

3  ecu 

><4MJ 

s  ec  4 

;  i?,i 

3  ""14 

3<ino 

3E"4 

29">0 

3  ECU 

toon 

3  EC  4 

io  io 

5  EC') 

1.220 

S3CU 

iJ  13 

3  E~U 

1  243 

3  EC* 

1  2r>3 

SEC4 

lOhO 

SECU 

13  70 

SECU 

P'O 

SECU 

:,rl2 

3  EC  u 

i  MO 

s~cu 

1110 

SKCU 

>120 

3  EC  '4 

1130 

3  EC  4 

HUj 

3  EC 'I 

(ISO 

3ECU 

'  If-  2 

^"1 

(173 

SEC4 

1  1  -1 J 

3  ~C4 

ii  n 

SECU 

1200 

3  ECU 

I2M 

J  ECU 

WO 

3i-:cu 

<.'  !0 

3  EC  i 

12  UO 

r  <r.-  , 

I2r>0 

JEC4 

i?oj 

3  ECU 

1270 

3  EC  4 

1280 

se.:u 

12  J0 

SECU 

1  130 

;;:4 

1110 

CCCU 

1)20 

3  iCU 

i  no 

3  ~r  4 

I  2  u  0 

;    1  '".  1 

t  £  .  4 

1    1    )  ^ 

SECU 

1  !  '■  0 

5  EC  J 

1370 

^  ~~  4 

SJHO 

3  EC  4 

jMO 

3SC4 

1U00 

3  ECU 

14  10 

3  EC  4 

1U20 

3  ECU 

5U  10 

16  9 


YT5=YI 

SECU  I^UO 

wirs=aia 

SECS  iu SO 

IHIS=T 

(I 

SEC*  VifiO 

15  EL  13- 

OEII 

SECU  )'l70 

DLSI5= 

deisi 

SE7U  !UHO 

rdi;is= 

R  DEL  IB 

3ECU  1U'>0 

C?V.6  = 

C?IB 

SEC*  1500 

i<tia~- 

7*  IB 

3 ECU   I'm 

GO    TO 

62 

3EC4  IS  2  0 

30    N3T1T= 

30 

SECU  iSfO 

RETUPN 

3ECU  )c'*0 

140    HSi'T= 

140 

3ECU  )SS0 

BETURII 

SECU  13^0 

161     NSTBT= 

16  1 

3EC4  1373 

BE7URS 

SEC't  3580 

500     SDIAG= 

1 

SECU  )S1Q 

CALL    0 

1TFUT(NNN, 

LPGCT,  BGEC) 

SEC '4  16  00 

110     N3T"T= 

1  10 

, 

S"C<4   16  10 

RETUPH 

SECU  if>20 

9230    FOPBAT 

(  1H0.7X,  1UHN0NP03ITIVE    VG) 

SECU  '.»>  lO 

9232    POSBAT 

(  1H0.7X,  milNOWrOSITTVt    V  L) 

SEC4  J-S40 

9241     FORBAT 

(  1H0.7X,  11 

WEGATITE 

an 

3  ECU  I'.SO 

2ND 

SEC<4  .<!>60 

3IJBR0' 

:ct5 

SSC5  1010 

coraoa 

7Z7.3AY 

SEC5  J')?0 

DID ESS 

ION    ~Z^ZAT  {  11730) 

3  ECS  0  0  13 

C               THE    A30YE    COBBON 

BLOCK    "Oli    SUBFOIIT 

fS  F3    TABLE    1 

SEC5 JOS  J 

c           it  bus 

T     ?F    Tli£    FIF5T    COBBON     BLOCK 

SEC50060 

cobbon 

A 

,  abas 

,     A  LAB 

ALPHAS 

,    ALPHA 

ALPHBH 

SEC50070 

i 

ALPHS 

AH 

AP 

AS 

r  a  r 

,     P.  A 

,           SEC500H0 

2 

Be 

J  STAB 

i,ETAB8 

BETA 

,     R2TAS 

3B 

,             3F3S   1310 

3 

C 

C1 

,     C  A<;  1 

CAGMB 

t     -  *■  '■ 

CALBfl 

,        sEc'jjno 

■1    C3G1 

,     CAL 

CASS 

C  BO  M  B 

cue 

z  j  ;.  -  b 

CBL 

SEC5  )110 

coaaos 

CDB5 

CO? 

CD 

cna 

,   cms 

c:k  ;a 

,            S ECS  0120 

6 

CF  IBS 

o;,ij 

CG- 

i:gbs 

,    Z  L  B  j 

CL1 

,              S3  -3  51  10 

-j 

CLB3 

C  3  A  V  E 

,     D 

02 

r.  a 

DATE 

3.T.:r)  )  Vifl 

a 

DO                , 

r£Lrn 

DFLI 

CF.LIS 

IE'  OB 

1    Li) 

,              3 333 0  13  J 

9 

U  EL  OS 

dels  i 

,     DELSO 

,     OHLrfi 

,    :'<  i  lt 

nr.L/2 

SEC5  )1^0 

coaaca 

D71 AGB 

DEBAG 

DEM  3G3 

,      DPr.JG 

UP'UiB 

0 1  :i  T 

,              3  ECS  M70 

i 

DL3  IS 

DLS  -3 

DO 

or  i 

3P 

DRAY 

.sets  no 

2 

Dfl 

OHO 

D8 

DS1 

,     D  3  A  V  ? 

,   us  1. 1  a 

,              3733   JI'iO 

3 

r.ca  ax 

,     JSBIH 

,   osr-AYi 

?  S  .  A  Y 

r     J  3:.  :!il 

,   D3h;:j2 

;              SZZ'.    <?)0 

14 

33?  ZS 

DS 

DSX  1 

,      Of  X  2 

,     DTH 

:>t  ".J 

SECSu210 

COBBOR 

073             , 

DTHI 

OTliO 

,     DTI.1 

,    PTLP. 

TTL 

,            32C5  3220 

6 

DT 

DYSSO. 

DVG30 

0VL3Q 

,     IX 

DY1 

,            SEC5  02  3  0 

7 

DYO 

S3 

,     3C3 

,     SB AGB 

,     ~""-.G 

■iB  iGB 

'      :s   ;24,3 

B 

z:id<; 

L  '.  "3 

,      EBG 

z  ••  ;s 

,     "  -  1.  3 

T^«     "4 

3  3-3  5230 

9 

EBL 

cbl.; 

"BT 

,      "30 

,     "LEIP 

"UX 

SECS  I2li0 

connoi 

H 

ijji 

HKAG 

H  ;<  m 

,    h  »  -.  a  1 

ilK  :i2 

,             33. 3  )270 

i 

HKC3 

MK',:13 

,     HI.A  1 

HI.AB 

,      II.  A 

iil.AS 

,              3  3"^  )?H0 

2 

HLD  1 

,    HLJB 

,     HLB 

Ht.BS 

•IB 

UBS 

srcs  ij'3 

3 

110°  £ 

HT 

I  AC  V 

,     I^LW 

,     IDLX 

,     TDK 

,            SEC'i  3  3^0 

4 

:j;i         , 

I  MT 

ISF? 

I  ZERO 

,     K 

K  1 

SFC5  1110 

C03B0U 

K2 

K  AP 

KDSCT 

KP3 

^L 

SSI 

SEC5  )  120 

6 

KR 

irrncT 

KT3 

KXP1 

K  XP 

L 

,            SEC5  3J10 

7 

LI 

L2 

I.LT  1 

,     LCT2 

,     LL 

Ln3CT 

SEC5  0  1il0 

8 

L3H 

BD'J 

a  Fro 

*  Pp 

,    B  G  E  0 

"l 

SECSO  lc   ) 

9    N 

,     BOP 

*  T  'T 

N  AL  V 

NE 

SCLX 

■;crs 

SEC 5  i  ?'.0 

cobboh 

snt  »G       , 

'.  DS 

ni;g         . 

MI  J 

>;  is 

NL3T 

S ECS  0  370 

1 

KV\ 

•(  >J  T            , 

NNPS 

:. '.  'I 

11  'i  P          , 

SN 

3  EC 3   1  |S>0 

2 

N  NS  00 

NN  30 

SNS 

N'P 

NSl)              , 

l«  3 

SEC5 53n3 

3 

P 

r  io 

P11 

PA  3 

?  ABU 

PA 

-ECS  j  a .  •  ■  1 

ti 

PAJ              , 

PBJ 

PBKH 

PfiOU 

PBO             . 

P3 

3  EC  3   '113 

COBHON 

pas         . 

PHIA3       . 

PHIBA 

PIU 

PINT 

PL                , 

3  ECS  3a  20 

6 

PL1              , 

PO                  , 

PS               , 

PT 

0                , 

210 

5  ECS   in  )0 

7 

R1 

RA 

HAS 

RAXO 

,'AX             . 

HO 

SEC5  1Uu3 

8 

?C 

FOELIS. 

3CEL0B 

PDI.15 

?  Do  1 3     , 

R3F             , 

3  ECS  jrjso 

9 

REB 

R  SIS          , 

RES  LIB 

RE33 

9  23  '/. 

f  HO(,a 

SEC5  0Uf>0 

COBBON 

RHOG 

,    ?.  10GS 

PrlOLB 

a '10  LB 

7,  lib  i       ', 

"il.TLS 

SECS  3.470 

1 

RIB 

HI               , 

RB 

30ALB 

<)OAL 

HOOLB 

S2C5  0a«0 

2 

30BL 

SOB 

RO 

3                 . 

r^sLia     , 

RS 

3  EC  SOU  10 

3 

BVB             , 

RY                , 

avs         , 

S 

■5  1                « 

S2               , 

SEC5  J'jjO 

170 


4                           S3                .    S4                ,     SA 

SB 

■^  g  N          ,    s  i  g 

SEC5  JS1Q 

COMHOH          SIGS          ,    SIUN          ,    Sf.J1 

,     51J2 

,     SilLC           ,     S1LD 

SEC)  "15  20 

6                           S1LE          ,    3J1LP          ,     S.1LG 

sr 

S3J1           ,     SOT  2 

S  ~5.)S10 

7                   sop          ,   so           ,   sosr 

ss 

>2fl           ,    szo 

.             SF.C5.)r>uO 

8                           T                  ,     TB               ,     T  ei.  AY 

TBI- A  Y1 

CG.IO          ,     TG> 

,         s;:c5  055o 

9                             TG                 ,     TG3             ,     THM 

THIO 

nu            ,    THTS 

SSC5  1560 

connos       TMon       ,   t:ioo       ,   tho 

TI'OS 

TK                 ,     TKT              , 

SECS 357  0 

1                           TUB          ,    T^             ,     TL 

TL3 

rsT         ,   rwtH 

SEC5 J5HJ 

2                           TWIIS       ,    TWO,!          ,     TWOflS 

V1                , 

7  2                 ,     V  A  r*              , 

SECS  US'IO 

3                             VBD              ,     V'RDj           ,     VD"1 

VB-1S0 

Y  3                 ,     »B!5Q 

SEC5  ViOO 

4                           VUS             ,     VGO            ,     VG 

VGJQ           , 

VGS              ,     YIAG 

5EC5  0610 

connos        vialb     ,   vui       ,    virg 

VTi3L3       , 

VIPL           ,     VIGM 

,            SEC5')620 

6                   vig;is     ,   vilo       ,    vilh       , 

VIU1S 

VL?              ,     VLO 

S3C5  06 <0 

7                           VL                ,     VL5Q          ,     VLS             , 

VS                , 

vss         ,  wago 

5  EC r- 064  0 

8                         WAG             ,    HAOa          ,    » At            , 

iDG3           . 

.'  j  r.          ,    •  d  g  s 

SEC  K>50 

9                             «EL              ,     WG1             ,     WG 

HGS             , 

u  I  -           ,    *  I  fl  s 

E"C5i'jS0 

coirnoN        wu.i          ,   uons       ,   x             , 

X10 

111             ,     XCLK 

SF.C5   i'j7  0 

i                   xriT       ,   xp           ,    xs 

,     XX 

XXA             ,     YI 

SSC5  )-.HJ 

2                           YIS             ,    YO               ,     TOS             , 

zzz         , 

NSTfT 

SEC 5  jtIQ 

DIMENSION    i'L  (10) 

SE75J700 

OlflE'lSICt.    ND3RY  (75) 

SEC5  0710 

DIBFJ.3  ION    DATE  (5)  .CAGE(l)  ,QID(8)  ,  XP(2,75)  .PI.1  (10)  ,                                               SEC5  0  7C0 
1                  C  (6)  ,AP  (2,75)  ,  a/A(31  ,0SR  AT  (100^,DSTUY1  (130)  .TERAT  (100)  ,TB3AYSEC5,)7?0 

21  moo»  ,n?hi{i5i,<rtn>i)  .dint] 8) 

EQUIVALENCE     (NDfAY  (1)  ,  DRAY  (1) j 
I?  (SST1T-701  1  ,70,2 

SE"5 374  0 

SE"5  1753 

SF.C50760 

1 

CALL    miHF 

SSC5  )770 

2 

I?  fMS'PST-100)  1  ,100,  3 

IF  hiST17-1090)   1,  1400,  1 

•  •**»**«•*****•    :i7AT::ME:iT    NO.     70 

SKC5 J7n0 

3 

3ECS0790 

C 

•  «••*  «****«««  ***•*««***«***«**« 

c 

C          OfcLTA    S     I1EHATI0N    ROUTINE. 

C 

70 

CONTINUE 
NST1T=9999 

16  004 

CONTTSUE 

IF  (SfOS 1)253  70,2506  0,25070 

25060 

CONTINUE 

s=i.oc-o 

C 

POlLi.J  ING    STATECIHHT    SIMPLIFIED    BT    UN I7AC. 

C 

SO=-SIGH  (1.d,DP*ZZZ)     ...     ETC. 

25070 

CONTINUE 

IP  (T'"1)  2470,  2399,2470 

3Er~5  J110 
SEC5TV0 

2070 

CONTINUE 

DSHi:i*1. CE-6-2.1* (S» (1.0*8) /R) 

Db::.W=  1 .  C»H-  1  .  OE-6 

S2C5  j'MO 
SSC5  194  0 

SSJ'i  -"•"  3 

DSLIH=nSBIS 

SEC5  1  >6  3 

IF  (Pi)  3300,3010,3010 

SE'.'S  J97Q 

3000 

CONTINUE 

DSLr"  =  D5("AI 

rt  ■•r-c    '    .  -i  l 

SRC5  ,1  )0 

3010 

C0N7I?I7E 

IJH=1 

sn=o.o 

GO    T^     16G00 

SEC5  1000 

3  ecs  mo 

5SC5  10.?  3 
SE-S  •;)  1  ) 

3030 

CONTINUE 
IJH=2 
RESO=SOSfi 
5flJ1=SH 

suji=so 
SJi=or,Li(i 

GO    T"     1&C0O 

33C5  I-J4  0 
SEC5  1350 
SE:;5  1  J-j  J 

sec5  n7o 

SEC5 1 J'0 
SEC5  nuo 
SEC5  1100 

3031 

CO  NT  IN '1  g 

3  ECS  1110 

?SLir.=  SOSN 

I 

SSC5 1120 

3MJ2=0  1 

S  fc'J  5  1 1 3  0 

SOJi^SO 

5  ECS  1  14  0 

I?  (KFSO«PSLIN)  30<>0,  3  06  0,  306  0 

SSC5  1150 

3060 

COSTIHOE 

HHTTE     (6.3061)     DSLia,DP 

GO    TO    3090 

SEC5  1  1^0 
SEC5  1  170 

SEC5  1  1*0 

3071 

CONTINUE 
3ESZ=50SK 

SEC5  1  110 
3EC5  1200 

171 


SZC=SO 

SZH=SM 

H0PE^RESC«RB3Z 

If  (Hi.'??)  3183,3085,3085 
3  080    CT'it'iUE 

RSL1*.=  FES2 

D5I.T  ',=  3Z« 

SOJ2=:570 

GO    TO     10  90 
3C85    COSTINUE 

SBSO=3ESZ 

snji=sza 

30.M  =  SZO 
3090    COSTTN'JE 

SH=(3.v.J1*DSLTn)/2.0 
XJH=3 
16000    CONTINtlE 

IP  (ABS  (SP)  -SHIN)  1390,1390,  13  91 

1390  CONTINUE 
S1=-JIGN  (3>1T  N,  DP) 

1391  AN  =  1.9*  (8*31) /  (1.C»R) 
BB*1.0-SH/  (1  .  0*H) 
DVBS0=  (-V  I /A!)  -  (V2/BN) 
VBrSv'=VBEC»DV3S0/2.  0 

c 

C         K3ITE    DIAGNOSTIC    IF    7BH    NON-POSITIVE. 
C 

IF  (VB139)  1250,  1250,  1251 
1250    COSTINUE 


S  SITE  (6,9250)     5H,  AS,  Bfl,  VI, 72,  VBSQ.D  VBSg  ,R,  VB.1SQ 

LL=1H 

GO    TO  1482 

CO  fl  P  UT  ?.  V  £  B 


1251    73fi=33HT  (VH"1SQ) 

B2N=?1  «vr  '*\L'3  (5*» 

IF (RFK-.C000Q1) 1258,1253,125  9 

1258    CD=2.»F.07 

GO    TO    7  1 

125  9    IF  [P.FS-O.  1)  126  0,  12* 3.  126  3 
12b3    IF  liT^-iCOOO.)    126  1,1264,1264 
1264    CD  =  1.45'>? 

GO    TO    7  1 
1260    CC=2J. O/REfl 

go    ro    7  1 

126  1    CD=EX?  (3.271-0.8803*  (A  LOG  (8EH1  )  ♦3.13  4  17* 

1  (  (AL  ;  I  (r'Ef1)  )  »*2)  «-.00  <4i»1*  (  (ALCiG  (REM)   )  **3)  ) 
71     CONTL.'IE 
C  »•*»•**»»*♦*«•*    3TATESS5T    ''0.     HO       ««•*«»••«»•«••••«•*••»*•«***• 

C  »•*•«•«■«•»«««*•*•»««««'««»•«»«•»»•«•■»*»*•«««*«•«*»*»«»««««»»«»«« 

C 

C  OPTIKIH     5!1     13    TO     3H    'IScD. 

C 

80     IP  (RFr-.  1611)   1380,  1300,1381 
138  0    CD?=1.3 

GO    TO     1334 
1381     IF  (3FT- 4  709. )  1 38  2, 1382, 1383 
1  38  2    CDP=I.  1  1  37*.  06  3  34*  (  A  LUG  (BE!)  )  *  .004  12  9*  ((ALOJ  (HSU)  )  «*2) 

GO    TO     1 JS4 
1383    C3P=2.  3 


1334     3.1LC  =  (C  1»  (31**  2)  '  /(  VBMS0*CD     ) 

SffLD=  ("HCL'!  ri»«rj  I  /  (iiHOG*  ( A  ?•  *  *  2 )  ) 
5«LC=  1  (FH')L*  (  JM**2)  )  /(P:iOG»AI1*  (1.  3»R  )  )  )  ♦ 
1  ]     R*31)  /t  1.  >  +  R    )  -1.0 

3flLF=S:'.LC*  ((  (J.  3*  A,!)/  (P*5fl)  J  *1  .0)  *1.  0 


0-1 

zzz*sni.r»sin.';«sn*s'H."»CDP 

SO    =    -SIGN  (1.3  ,3C*7.ZZ) 
C2    =    2.0*S1LG*SflLD 
C2    =    3!U.C*?,ZZ/C2 
IF(C2.LT.J.J)     C2=ABS(C2) 


JliH    8/19/66 


3  ECS 

1210 

SEC5 

1270 

3  EC  5 

2  13 

SEC 

2  4.) 

-  u-  r. 

2SJ 

SECS 

1260 

SEC  5 

J73 

SE'S 

280 

3  EC  5 

2'<0 

SKC5 

l  i'10 

SEC5 

310 

SECS 

120 

SEC  5 

3>0 

3  EC  5 

1  14  0 

SECS 

3S0 

SEC5 

3*3 

3  ECS 

1  HO 

SECS 

1»0 

SIC  5 

1  ?<<0 

S2.T5 

40  3 

SECS 

14  10 

3  ECS 

420 

3  ECS 

'i  ?3 

3  ECS 

44  0 

S  EC  5 

450 

SECS 

4  CO 

CJ  I.V"-, 

470 

SECS 

403 

3  ECS 

4<I0 

3  EC  S 

50  0 

3  ECS 

5  10 

SECS 

S20 

3ECS 

S  10 

3EC5 

S4  3 

3  ECS 

55  0 

3  ECS 

56  0 

SECS 

570 

3  ECS 

510 

SECS 

590 

S  EC  S 

~,1  1 

3  ECS 

»  1  3 

sirs 

6  '  ) 

'"  ECS 

6J0 

SECS 

1,4  0 

3  EC  S 

h5  0 

3  ECS 

66  1 

S  EC  S 

6  '  ) 

SECS 

(.HO 

SECS 

>5   '0 

***3  ECS 

no 

***SE"5 

710 

3  ECS 

733 

3  EC  3 

71) 

3  ECS 

740 

SECS 

75  3 

SECS 

760 

3  ECS 

770 

S£.cs 

7  10 

3  EC  3 

700 

3  3"  5 

800 

SECS 

810 

Sic  5 

H^O 

3  ECS 

HJO 

SEES 

H4() 

3  E'-S 

35  0 

SECS 

86  0 

:  Ecs 

170 

SECS 

830 

SECS 

890 

SEC5 

0^2 

SEC  5 

894 

172 


C2    =   C2«»0. 33333  SEC5  1896 

SO    =    30»C2  SECS  1H'»y 

SO^Pl    a     3C-SM  STS  1900 

91  If  {Ar.S(SC-Sfl)-BSO)  1481,1481,  1482  SHC5  1910 
1U81     SIS*HHSO  SEC51920 

NNT.  =  0  SEC5  mo 

REWIND     16 

GO  TO  -)2  3CC5  nso 
C*«».*««*«1HtS    T5    TO    SYfASS    ITERATION    COUNTER    DURING     PLOTTING    IJH    =     U          5E":r-19f.0 

1U82    CONTINUE  SSC5  1">n0 

11'*82    NNbO    =     NNSO    *     1  ""'*r>  'T<0 

16060     I?     (NNSO-NSD)      1U8  3,  14H3,  1U90  SS.T5  :000 

C  5EC5  2010 

C      ST08E    THIS     VALUE    OF    D5  1    AND    WHITE    OS  1    ARRAT    IF    FULL.  SE.-r>..'0>0 

c  s  ecs  .mo 

1U83    CONTINUE  SECS20O0 

C**»«****DEEUflGIH(5     AID    FOR    OINART    CUT    COM? ERG2NCE  3r.Cc>  ?'JriO 

DSPAYC<DS)=2  22?22  22  2.  S^T  5  2060 

OSFAY  (<33»  1)      "     3-J1  3F?'i?Q70 

DShAY  (KDS»2)     =    SOJ1  SEC5201U 

DSt-AY  (K0E»  Jt      =    HT.r.O  '                                                             SEC>20?0 

OSIA  Y  ( 'PSHt       •=    SI  SEC5  2100 

D3PAY  (:<UF*r>|      =    30  SSC5  2110 

DSPAY I" DS*ft)      =    SOSfl  5EC52120 

SSfrAY  (K  ES*7)      =     DbLI.1  SSC521J0 

D5PSI     KDSHi      =    ;;CJ2  SSC52140 

OSHAY  (r,[)S*'A      =     SliLIfl  SEC5  2150 

KDS    =    KDS    »     10  SEC52160 

IP(KD5    -     100)  16003,  16003,148a  SEC52170 

1U8U     WRIT"     (16)     DSRAY  35505  2131) 

KD3C-=KD3CT* 1  l-X^^I^O 

DO     1u3b     1=1,100  SEC522T0 

DS^AY (I)  =0.0  SEC52210 

1086    CONTINUE  5EC5  2220 

KDS=1  SEC52230 

16003    CONTINUE  5EC'j22U0 

GO    7"     (  JO  JO,  1031  .30  71)  ,  IJH  SFC*.i.!250 

C*»«««END    OP     BINARY     CUT    C  OlV  BRGESCE  ROUTINE                                                                                   SE'.^i:^ 

C  S2O5  2270 

C          NO     CONVERGENCE    ON    US        -        PRINT  DIAGNOSTIC    AND    GST     ALL                                               SS~r>22H0 

C                  PfcVrous    VALUFS    d"     03    FROM    TAPE     IS     AND    TEMPORARY     ".TORAGE    IN  SECSVOO 

C                  0:;RAY.           FHINT    THEH    ANDEXIT  TO    DIAGNOSTIC    ROUTINE.                                            SHC52300 

c  secS2.no 

1U90     REWIND     16 
NSTT=0099 

WRIT:     (6,909  0)  S^Ci^TlO 

1091  IF  CO"CT)  1*93  ,  1093,  1092  S2Cri"!330 

1092  SEPD  (1h)  D3RAY1  3EC52J60 
HHITF  (b,iu91)  (3SRAT1  (I)  ,I=»1,  100)  53C52370 
<CDSCI  =  KDSC?-  1  SEC5 23*0 
GO    TO     1«  91  SEC5  2J10 

1093  W?ITF  (6,9491)  (DSR  AT  (I)  ,1=1  ,K  DS)  o^JUOO 
KD:-1  'ISC'jJuIO 
KDoCT=0  SEC02U?3 
CO     1495     1=1.  100 

D5FAY  (I)  =0.0  3EC5  2000 

1095    CO'.TINUE  SEC5.'0S(J 

LL  =  1<3  3EC02US0 

REWIND     16 

GO    TO    50  0  SEC5  'O'iO 

C  SECS^U^O 

C         OPTIMIZE     DS    AND    DX .  3EC5->'j00 

C  SEC'jJSIO 

92  IF  (flFPO- 1) 2302,2381 ,2382  SEC52520 

2381  DS=0.0  SECr'25?0 
S=SO  SEC525U0 

,1FPO=0  SEC5  2550 

GO    TO    3  3  3EC5  25SQ 

2382  0S=SO-5OP  ^=;C:),r)70 
83     iO?=SO  SECri?540 

SECS  ?590 
SEC52bOO 


DX=(D/(0.75«RHOG*ABS(Sfl)  «S.1*CD  *VBnSQ)  ) 
1  •  \  1*633.  00»DP*(  (  (BB»«2)  *RUOL«OV3Sg)/2.0) 


73 


2  ♦  (  (PB*BHOL*VBflSQ)/(1.0»R)  )•(  ( (2  .  0«SB»OD  /  ( 1 .  0*  R)  )-DS)  ) 

100    DS1=1S 

NSTMT=9999 


VBS'J-VBSCtDVBSO, 

if  (vnsqi 300. 300, J01 
300    4St7E    {6,9300) 


Lt=19 

GO   TO    5  0  0 

STORE    "♦DPCINT    QUANTITIES    FOB    NEXT    END-POINT. 

301    EMLM  =  F.ML 

R;iCLM=RHCL 

OELTM=TG-TL 

»LI1=B3*VEB 

HLAM=HLA 

HLEM=ULB 

Rfl  =  R 


DETERMINE     REAT    TRANSFER    COEFFICIENT. 
CONTINflCOS    AT    JUNCTIONS. 

IF  (REM-  1.0)  304,304,  305 

304  HB*<24.9*MKGM)  /D 
GO    TO    30  9 

305  IF  [BEB-25.0)  306,  306,  107 

306  HM=)n9  ).  •C-;i1«'HU.;*  (Al3i  (SM)  )  »V9M* 

1  (  (2.2/RE'1)  ♦  (.4d/(S2aT  (REM))  )  ) 

GO    T"     10? 

307  HB*(4.44*HKGfl*  <8EB**.6))/D 


SEGMENTS    ARE    NOT 


c 

C         COMPUTE     ITA'I    DOUNnAHV-LAYER    PARAMETERS 

FOB    CIRCULAR    NOZZLE 

C 

c 

30  B 

OR    OtlTEF    '.ALL    OF    ANNULAR    NOZZLE. 

THCfl*!  HO  ♦CT'in/2.  i 

DFLO»=  10.2M6  «TH01 

SDtLOM=  (  .'0  9.  *PH0L*VL*0ELOn  /VI  1.1 

if  cn?  L">.i.  ir. o.O)    rdslom=a3S  (r  deloi) 

C?UM=. 20 d/(( ALOG 10 (HOE LUB) ♦. 42  5) *«2. 
IF  (3GSO)  339,  30,309 

5P4) 

309 

THIM=THI *nT9 1/2. 9 

DELIM= 19  .286*TIU« 

PDELI1  -  <  300.  »rMOL*V!.*OELIM)/VI  LM 

Cr"TM=.201/((ALOG10(RDELIM)  ».425)**2. 

5A4) 

39 

NS1MT=30 

setu::n 

2399 

NST.MT-2J99 

BETURN 

ncia<;=  1 

500 

CALL    OUT?UT(NNN,LPGCT, NGEO) 

N3TBT=  i  n 

HKTUftN 

9250 

FOnMA?MH0,7x,  15  H  NO  N  POSITIVE    VPM/(1H 

,9X,  IPSt 

:iSC)) 

9  300 

FORMAT  (  1(I0,7X,  14  ,1  NO  N  P'JSITI  V  »    V  Dl 
FOM.1AT  (  1H0,7X  ,  24I1COIJLD    NOT    CONVERGE 
FORMAT  (  1H    ,  U'10t13.  4) 

9490 

ON    03,//) 

9491 

3061 

FORMAT (1 H0,3bUL:K?    SIGN     R3SIDUF3     IN 
19HFJ6     OP    =    ,  c.15. 4) 
END 

SUnPO'ITINE    SECT6 
COMMON     TZZZAT 
DIMENSION    TZZZAY  (11 200) 

INTERVAL 

0    ro 

1PE12.4 

C 

THE    ABOVE    COMMON    2LOCK     FOR    S'JBOO0TTN 

FS    TA3LE 

'VND    TNTHF 

C 

IT    "1ST     EE    THE    PTKST    COMMON    BLOCK 

COBBON           A                   ,     AbAR           ,     A  LA fl          , 

AI.fHAB    , 

A  LP1A 

ALi'HBB 

1                          ALP  IS       ,    AB               ,     A?               , 

AS             '  , 

AT 

B» 

2                            3B                ,     ilE?AB       ,     CTABB    , 

BETA           , 

BETAS 

3B 

J                            C                   ,    C1                 ,     CAC1 

CAGBB       , 

CAG             , 

CALM  3 

4    CBG1        ,     CAL             ,    CAGE          ,    C3GBB       , 

CPG             , 

EBLMB 

O  L 

conaon       cobs       ,  cdp         ,   cd           , 

cfib       , 

CFTMS        , 

C?OB 

S                            CFOBS        ,     CCBB           ,     CGM             , 

CGMS           , 

ELM  3 

CLM 

7                          CLBS          ,    CSAVE       ,    0                 , 

02 

Hi            , 

DATE 

3EC5 

2610 

SEC) 

2620 

sec  26  )o 

SECS 

2<>4  0 

3?C 

>650 

SEC 

266  1 

SEC  5 

^,70 

SEC 

26  3  0 

SEC 

>iiO 

j  j-  > 

sec; 

27  10 

SF.CS 

2720 

3  LC ' j 

2710 

SEC  5 

274  0 

SEC5 

2750 

SEC  27-0 

ssc 

'770 

SEC 

'730 

SEC 

2713 

SEC 

2(330 

SEC 

:bio 

S  EC  5 

"120 

SEC  2110 

SEC5 

>.,/,  3 

sec 

2153 

SEC  5 

*Sf,  3 

J  EC  5 

.'*7J 

SEC) 

jqqg 

3  ECS 

21-19 

sscs 

3930 

<;FC 

2  no 

3e:s 

2920 

3  ECr> 

29  10 

SE  -c) 

>  Ti  J 

S  2-*c. 

29  ,0 

SEC 

296  0 

3  ECS 

2970 

SEC 

2910 

3  £:"'> 

2990 

SEC 

10  30 

SLC 

3010 

SE  :s 

10  20 

S  EC  ' 

10  10 

SEC  5 

;  n .  o 

SEC  5 

(95  0 

SEC 

1  ;->o 

SECS 

t'J  7  0 

SE  :■*> 

10. -i  0 

SECS 

1""'0 

3  ECS 

i  1 19 

s  c  "S 

I  1  10 

S  EC  ") 

11  10 

SEl  ' 

1140 

SECS 

1150 

S  EC 

J1o0 

SECS  )  !  ->-) 

3  EC  5 

11-10 

^"S 

31^0 

SEC6 

5010 

SEC3 

H20 

SEC6 

00  10 

3  EC  6 

0)50 

3  ECO  J  2 

S  5  *6 

))70 

S  EC 

J  )■'<) 

S  SC6 

'019 

SEC 

JluO 

SEC  OHO 

SECS 

J120 

SECS 0  1 30 

SECb 

J140 

74 


8 

DD 

DELIA 

DELI 

,    nPi-in 

0  5  LOB 

nsr,o 

,         sscr.  11  so 

9 

DELOS 

,    OK  LSI 

DELSO 

DFLm 

,     DELT 

DELV2 

SEC'i'JI^iO 

connos 

D^BAGB    , 

Oh' -AG 

DEB  QGB 

,     DF.3DG 

0F.BG3 

DtNT 

,              S7C»»')170 

1 

DL..IS 

,    DLSOS 

,     DO 

PP1 

OP 

DhAY 

,              lE'TbOIWO 

2 

DPI 

OB  a 

,     OR 

,      OS  1 

,     03AVE 

,     OSLIB 

,             SSC6  0190 

3 

dsbax 

,    .OSBIS 

,     0SPAY1 

D-r'AY 

.riPJSI 

DS.5SS2 

,            SECf-  3200 

a 

DSRES 

OS 

DSX  1 

,     [1SX2 

,   or;i 

DTGB 

SSCO  J210 

cobson 

DTS 

,     DT'il 

DTIIO 

DTI.1 

DTL3 

DTL 

SF;-'j  1220 

6 

DT 

,     DVP.SQ 

o  v.;  so. 

DVLSQ 

,  ux 

:.yi 

,           SEC)  )2  10 

7 

PYO 

,    Fb 

EOS 

EBAG  B 

,     C.1»G 

E  K  3 13  B 

,             7*ZC>ii<2'iO 

8 

E"3G 

,     F>1G3 

EBG 

E^GS 

,     tCILP 

S.I  LB 

,              S  EC  •)  ,ir.O 

9 

EHL 

,     FBLJ 

■'«#-" 

ESO 

"LriEP 

F'lX 

SECo  J2'^0 

COBHON 

H 

HJI 

IIKAG 

,      HKBG 

,     'IKGBl 

,     HKGB2 

,             SEC^">^7Q 

1 

HK3  3 

,     HKGBS 

II  LA  1 

llt.AB 

,     I'LA 

MLAo 

,            SEC  J283 

2 

11  LB  1 

,     H  L  'JB 

,    HLb 

,      HLL'S 

,     HI 

HBS 

,             SECS  )^'*0 

3 

HOPE 

-     HI                , 

1ACV 

,    mm 

I3LX 

,     IF)  * 

,            S"C6  0M0 

U 

IJH 

,     INT 

ISET 

,      IZERO 

* 

K1 

SECh  )  in 

COBHON 

X2 

KA? 

KDSCT 

tens           . 

*L 

'.PI 

,            SEC6  0320 

6 

KP 

KTLJCT 

KIT 

,      KXM 

•  KX? 

L 

,             SECbHIO 

7 

LI 

L2 

Lcn 

,     LCT2 

LL 

LFICT 

,            SSC6J3«0 

8 

L3W 

bbh 

BPPO 

,     TP 

,     NT.  r.O 

n 

,             SEC'.  )350 

9    N 

,     BO? 

,  bt:it 

N  AC  V 

,      NB 

VICLK 

SCT5 

SECt.03f>0 

COBBON 

HOI  AG 

•IDS 

NGG 

ntd 

,     f  I  S 

NLST 

,             SEC  J  373 

1 

NSA 

nnb         , 

NNDS 

NN  N 

•IS.' 

NN 

,             SEC6  0  3P0 

2 

NNSOO 

::nso 

INS 

N  'J 

'i ')(' 

,     NS 

.             SSC6  J  ViO 

3 

P                   , 

P10 

P11 

PAb 

P  A  K  0 

i  A 

,             :;.■"'.  JKOO 

u 

PAS 

P&B             , 

PBBB 

PH03 

?"lt> 

P3 

SECo J^  10 

cobbon 

PES              , 

PHIA3       , 

PHT  DA 

Pll  i 

r> in  r 

?L 

se'.--  vi  :• ,) 

6 

PL1 

?0 

PS 

PT 

j 

'.il') 

3  EC  •'.  )  a  3  0 

7 

?.\ 

?A                 , 

KAS 

PAXO 

SAX 

Hd 

.             SECo  )U'*0 

8 

AC 

P DEL  IB     , 

PPL  LOB 

,    art.is 

R  OOBS 

F/F 

,         sscfi  yr,o 

9 

RFM 

?  ?  *3 

PES  LIB 

sr:^o 

^  F  'VZ 

F'ljr.B 

S  EC  ft  .)  4  *>  J 

COBBOS 

?SOr, 

»ili)BS 

HHO  L3 

RMOLB 

PIIOL 

">ll  )LS 

SEC-.   iU  '0 

1 

HIS 

RI                , 

SB 

HOAL3       , 

B  1 1  A  !.           , 

SJJL3 

S  C  J  '>  0  U 1 0 

2 

ROB  I 

i(C1             , 

HO 

.      ?■ 

-"LIB 

PS 

,            SEC   ' ■»  '  ) 

3 

pvn 

HV                , 

a  is 

s 

;  i 

;?. 

SECbU500 

14 

S3              , 

sa            , 

SA 

,      S3                , 

SGV 

S  I '« 

SECIi  S3  10 

COBBOS 

S  IS  s 

3,1  IN 

S  MJ  1 

S 1 J2 

,    '■11.  c 

SBLD 

SPCftOS20 

6 

S1LE 

SBLF 

SHLG 

c*  m 

JO>I1 

SO.I2 

SECO  05  '0 

7 

SOP              , 

SO               , 

sor  b 

^i  1 

■;  7  B 

.'  Z  1 

SEC  I^UO 

8 

T 

ra 

T3r  \Y 

ThfcA  Y1 

r  rt  *  b 

r'  iC* 

SEC'j  >5r>0 

9 

TG                 , 

TGS             , 

THIB 

Til  10          , 

mi 

hi  is 

SSChJS<»0 

COBBON 

TuOB 

THOO 

THO 

TriOS 

r    tk             , 

tx: 

SECh  ';S70 

1 

Ti.in 

T  LO             , 

TL               , 

TLS 

tst 

TWtB 

s-csj^O 

2 

rsifis     , 

rwoti 

T.i j  IS 

''1                i 

V? 

V  A  H 

,            SECa'lS  10 

3 

VPO 

v  b  ns        , 

If  BE 

V31S0       , 

VD                , 

V3S0 

SECo  )f>~)d 

a 

yss         , 

»r,n             , 

VG                , 

\ir,so  " 

7  r;  ^             j 

v  r  •,  ; 

S^Cf)  )>S  10 

cobbon 

VTA  LB 

VIAL          , 

VIPG          , 

VIoLJ       , 

VIBL 

VI"  B 

SECS'1620 

6 

VIGHS 

V  I  L3 

VILB 

VI  LBS 

,     VLB 

VLO 

SEC)   I'vIO 

7 

VL 

VLSO.         . 

VLj 

vs            , 

/  S3             , 

WH3J 

,             SECij.Jh'iO 

8 

HAG 

HAGS           , 

WAL 

<4GB 

wnr,          ( 

•  j;s 

SEC  i    I'i5  1 

9 

WbL              , 

we."           . 

«  ;            , 

«GS             , 

a  IB         , 

'JUS 

SECT  OnftO 

cobhon 

HUB 

WO"S 

t              i 

X 10             , 

XII             , 

XCLK 

SEC  C70 

i 

XTN7 

XP               , 

xs           , 

IX               , 

<XA              , 

?I                ) 

SEC6  )«>'30 

2 

ns 

YO                , 

70S             , 

Z7.2             , 

'JST1T 

?EC«i  .")  10 

DIMENSION    FL  (1 

SEC  !700 

DI.1ENS 

ICN    SD3AY 

75) 

SEC6  1 710 

DiSBSSI 

OH    0\  T£  lb  I 

-CASE  (3)  . 

'')  .JCXAja 

(T(  Id)  ,01 

3  TO  (3)  ,  X! 

.osr.  AY  (1 
•Tf8) 
(f)i 

'(2,751  .?! 
)d) ,03RAY 

•  1(10)  . 
(100J  ,  TBi 

SECo  )7>0 

1                 C 

lb)  ,A?  11, 

ofay(7<5)    ; 

ESC?      (SD.-, 

lAY(IOO)  ,' 

rBBAYSSCe  '^JO 

21  (100)  , 

S  "'-■)•  )7U0 

EQU1VAL 

.{  (1)  ,  OB  A) 

3"Co  37S0 

11  (NSTfl 

T-  1U0)   1.  U 

10.  2 

3ECb  >7*i0 

1     CALL    OUBF 

SSCb J77Q 

2     IF  ('iSTBT-239  9)    1.. 

.399,1 

S3C5  1710 

C 

SECfi  )7<>0 

C         CONFUTE 

BARBED    QUI 

INTITIPS    1 

IMD    ITERA1 

"E     ?0R    C01 

1VE3GENCE 

ON    T3. 

SECO  MOO 

C         GET    INTE8 

PCLATED    P 

10    PPOH    TJ 

ISLE    FOO 

'HIS    TB. 

SEC6  0810 

C 

3EC6CA20 

i»o  ir«9 

SEC  08  <0 

NSTBT=9999 

SSCb 08U0 

339    NN=9 

SECfiOUSO 

CALL    INTSP(PBOB, 

i,I3,?| 

SECo 0160 

7  Q 


IP  (N)  3  18,318,320 

318  LL  =  20 

319  WHITE     (6.931H)     HT(NN),T3,P 
GO    TO    500 

C 

C  COMPONENT    A.  PRINT    DIAGNOSTIC    TP    SUPPICIENrL*    CLOSE    TO    ZEBO. 

320  It  (UBS n.0-U*PBOB)-. 000 II  321,321,323 

321  BSITE      6,9320) 
LL  =  29 

GO    TO    5  00 
C 

C  COMPUTE    "AHTIAL     PRESSURE    OP    COMPONENT      A    AN  D    3    AN  0 

C  PRINT     OIAGNOSTIC    IP    EITHER     N0NPO3ITIVE. 

C 

323    PAE'(P-PEOB) /(  1.- JH*PBODJ) 

IF     (PAB)      313,322,322 

322  PBB    =    P-PAB 

IF  (PDB)   312,0323,9323 
C 

C  INTERPOLATE     INTO    MOLECULAR    WEIGHT    TABLES    POS    A    AND    0 

C  AT    THIS    TEMPERATURE    AND    PRESSURE. 

9323    N=3 

NN  =  3 

CALL    IMTFP!WAGB,N,TB,PAB) 

IF  CO  325,325,327 
325    LL  =  ;2 

HRITE     (6.9318)     HT  (NN)  ,TB,PA3 

GO    TO    500 
327    N  =  u 

NN=4 

CALL    INTFP  (W  UGB.  tl,TB,PB3) 

IF  (S)   129,323  ,  130 

329  LL  =  2) 

WhlT"     (6,9319)     HT  (NN)  ,T8,PBB 

GO    TO    500 
310     WHITE     (»,9310) 

LL=29 

GO    TO    500 
312    HRITS     <b,9112) 

LL  =  21 

GO    TO    5  00 
C 

C         COMPUTE    MEAN    MOLECULAR    WEIGHT. 
C 

330  WGB= ( ( HAG8*P A3) ♦ <Wi1Gr«PBB) ) /P 
C 

C  COMPUTE     ALFMA     AND    L;ETA. 

C 

ALtHAB=  (  (WAL/WBL)  *H«?AB) / 
1  (  1  .0*  ((  WAL/Wi'I.)  -1.0)  «H«PAB) 

BETAP=  (WEGn«PBH)/  <W  ;3*P) 
C 

C         CHECK    DESORIMftTOB    OF    EQUATION     FOB    S    AN C    PRINT 
C  CIAGMOSTTC     IP    SUFFICIENTLY    CLOSE    TO    ZERO. 

C 


TK={1.0-  (1.0  *SC)  'ALPHA  B) 

TKT=A3J (TK) 

IF  (TKT-. C091)     333,335,335 


TKT=A3J (TK) 
IF  (TKT-.  C001) 
333    WRITE     (b,1333) 


LL  =  2U 

GO  TO  500 
C 
C    COMPUTE  3AFBED  FLOW  PARAMETERS. 


C 


335    SB-  (PC-  (1.0*PC)  *L'ETAd)  /TK 
DERGD=  (  "  HT/(  1.  0*PB)  )  -EMG 
2MGC=EMG*rit.MGB 
EBL3=R3*EBG3 


DEM  AG  3=  (  (EMia*WAG3*PA3)/  (WGE»P)  )  -  EM  A  G 
DEBBn3=  (  <EMG8«W3G8*PBB)/  (WG3*P)) -SMBG 


SECb  0  970 

S3C60d90 

SEC6  0890 

SEC  6 

)"'>0 

S  SCG  • 

910 

S"C6 

9?0 

SEC6 

9  10 

SEC6-' 

99  0 

S5C61 

n^o 

5  EC^> 

9^0 

S3C6 

197  0 

SEC6 

990 

3EC6  ( 

19  10 

SECb 

000 

SECfi  ' 

0  10 

5SC6 

020 

SEcr> 

"10 

SECS 

DUO 

S£i~b 

)50 

SEC6 

Jf.O 

SEC6 

170 

SEC5 

OHO 

SEC6 

O'>0 

se  :g 

no 

SECfi 

no 

3  ETb 

120 

SECh  " 

1  10 

ssro 

iuo 

SECi 

1c3 

SECb 

IhO 

SSCG 

170 

3  EC. 

1  <0 

JECb 

110 

SECb 

2  JO 

SEC)  1 

210 

SE"4 

270 

SECh 

2  10 

SECb 

290 

SECu 

2'»0 

S  ETn 

2o0 

3--  ■'. 

270 

3  "'■.:<> 

2!<0 

S3  J  6 

290 

3ECb 

Mi) 

3  EC  6 

310 

S  E  '  6 

)20 

SECfi 

no 

szr.h 

ViO 

SECb 

150 

SEC>> 

160 

Su"» 

170 

: .-:    . 

1  10 

5  EC  6 

)90 

SECb  1 

900 

SEC  6  1 

4  10 

SECb 

420 

SCCb  1 

9  10 

SECb 

!|  1 .) 

SECb  1 

950 

SECfi  1 

u'.O 

SECb  1 

970 

SECb  ' 

u;i0 

SECh 

U90 

SECT  1 

->:q 

s?.:i, 

r-10 

3  EC  6 

c20 

SECb 

5  30 

SE'rb 

Sun 

SECb  ' 

500 

3EC6 

5c>0 

SECb 

570 

i  EC  6 

530 

176 


EBAGP=RnAG»D5l1AGB  SECT,  1590 

E!BGE=  E:1  EG*Dfc.lPGB  SECcilbOO 

DTG3=~3-TG  3EC6 ISIO 

TLPU=  (TL+TS)  /2.0  S5CS1fc20 

TG!D=    tg«T3)/2.1  SSCfilMO 

PAHJ=  (Pi»rA3)  /?..0  ;; EC r.  1  n u 0 

P3HB=  (?B«rBB)/2.0  3EC'>1b50 

C  SSCfi  Kit.O 

C         INTERPOLATE    INTO    SPECIFIC    H1JAT  TABLES     POS                                                                           SBC6  1670 

C                       CAL19       -       3PE<:IFTC    Ml  AT    -  LIQUID     A                                                                                SECo  1b»IO 

C                       C3L.1B       -       SPECIFIC    HEAT    -  LIQUID     B                                                                                3EC6  1!»90 

C                       CAG*B      -       SPECIFIC    H"AT    -  G  A*    A                                                                                           SCCatT>0 

C                       CDGBB       -      SPECIFIC    HEAT    -  GAS    8                                                                                        SEC,  1710 

C  SECfi  17  20 

N  =  5  SE"f>  1730 

HS=5  SECb 174  0 

CALL    T1TF?  (CAL.13,N,TLHB,  P    )  SECb  1750 

IF  (N)  340,  341  ,  ji»1  SECM7'iO 

340     WHITE     (6,913b)     HT  (NN)  ,TLflB,?  .                                                           SE2o1770 

LL  =  25  SSC6  17*0 

GO    TO    500  S£Cf»  WO 

3 HI    N  =  b  SEC6  MOO 

NN=b  SEC6  IN  10 

CALL    INTFP(C3LHB,H,  TLKD,P)  SECb  1320 

IF  (N)  3tt 0,340  ,  343  SF.C6  1<J30 

343  N=1  SECS  IrtaO 

ns  =  i  se:o  Hr<0 

CALL    INTF?  (CAG1B,N,TGN3,  PAB)  SEChlflDO 

IF  (SI  3  4 4  ,344,3  43  SECLI'PO 

344  LL=25  SRC  6  M30 
WRITE  (n,)136)  HT  (NN)  ,TG«B,?AB  32Cbl910 
GO    TO    WJ                                     -  S2C6  1900 

345  N  =  2  ;ec&  rno 

NN  =  2  SECb  1120 

CALL    INTFP  (CHGHB,  N.T^HB,  PBB)  SECblHO 


IF  (N)  3  4b,  14b ,3  47  SECullUO 

346  LL  =  2"  5CC6  1950 
a  PIT"  (6,113b)  HT  (Nil)  ,TGSO,?CB  SECfil'lhO 
GO    TO    50  0  SECb 1V70 

347  Aipfi.in*  ( ALrtA»AL[";AD) /2.o  snc:sn°o 

BETAi"B-  (  EF.TA  ♦  RETAU)  /2.  3  SECb  1110 

CIS 8=  (  A  LPil  "!3*CAL1?  )  »  (1  .0-ALPH1  B)  »03L  .13  SEC5  2 000 

CG3B*f  1.0-BETASB)  *C  AG13*B'-:TA  ail*C3O10  SECb  2  J 10 

dtl«j=(-i  .0/(  :-.•.•••: L»?)  )  *  ( (CGa3*DT«ii)  *  ■". :-:  'A  !020 

1  {(VESO- VG**2*P3*  (    VBSQ-VL    ««2)  I  /50072.9)  ♦  3EC62010 

2  (  (DEMATB/EPGD)  *  'HLA*CAG»  (TG-TL)  )  )  ♦  SErb2')'iO 

3  DFIV.O/FM'JB)  *  (HL3»CBG*  (TG-TL)      )  ♦  SEC62050 

4  (  CEr.(.a/C.lGB)«  (  (  (VG*«2)  -  (VL»«2)  /b0072.3|  )  )  SECo'ObO 
C  SEC* 2070 
C         TEST    FOH    CONVERGENCE    ON    T9.  SFC620Q0 

c  ->r,:f>  ci:ho 

IP  (  (ABS  (  (Ta-TL)-DTLB)  I -EB)  14  1,  141  ,35  0  SEC*?.  ICO 

350  NNE=NN3»  1  3EC6  !110 
I?  (i'.B-NE)  35  1,  351,  354  SECb  2V20 

C  Si-'.JMO 

C         SAVE    THIS     VALUE    OP    TB     FOR    POSSIBLE    NCN  -CON  VERGENCE.       .  3~Ct>2l40 

C  SFCS2150 

351  TB=7LOTLB  3EC62H-0 
TBi-AY  (KID)  =  TB  3E25  >170 
i?TE*KI3*  1  ST:f-  2130 
IF  (KT'J-  ICO)  1u0.  140,  352  SECb  2  1  >0 

352  WRIT?  (14)  T3RAY  5"~b 2210 
00  35  3  1=1,100  SECb 2210 
T2PAY(I)=0.0  SEC".  22    0 

353  CONTINUE  SEC622 10 
KT?=1  SECb 2240 
KTPCT=KTECT*1  5CC6  !2r>0 

GO    TO     140  SEC6  2?.bO 

C  SEC62270 

C         HO    CONVERGENCE    OS    TB    AND    ITERATION    KAXTHUH     3EACIIED.  SEC62200 

C  PRINT    DIAGNOSTIC    AND    ALL    VALUES    OF    TB    FOUND.  SEC6  2290 

C  SEC6  2300 
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3SU    BRIM     (6,9352)                                                                                                                                       SEC6  2H0 

399    IF  (KT3CT)  U03,U03,U00                                                                                                                       3F.C62.330 
U00    HEAD     (1U)     T3PAY1                                                                                                                                          5~~:>23'tO 

WHITE     (b,)U91)     (TBRAY1  (T)  ,1*1,  100)                                                                                    SEr^!3S0 

KTbCT=KTOCT- 1                                                                                                                                                  S2';h>3f>9 

GO    TO     )99                                                                                                                                                            :;?■  'H  I  HO 

U03     WRITS     (b,9491)      (TBP»Y(I)   ,1=1  ,KTB)                                                                                            SEC«i23rfO 

c 

ssrd  ir-o 

c 

CLEAR   TB    SAVE    ARRAY.                                                                                                                            SECS  !<»03 

c 

5EC6  „"<  10 

KTB=1                                                                                                                                                                                    SiCo  2'*  30 

KTBCT=0                                                                                                                                                                  SEC6  2U30 

00    <» 05     1  =  1,100                                                                                                                                               ST'.  -?'J'iO 

TBPAY(I)     =0.0                                                                                                                                               SECn^USO 
U05    CONTINUE                                                                                                                                                     SEC6  -"'-O 

LL=26                                                                                                                                                             SSC6  2U73 

GO    TO    500                                                                                                                                                  SErr>2090 

c 

STORE    "lUflBER    OP    ITERATIONS     3EQUI3ED    TO    CONVERGE    ON    TB.                                        SEC^SIO 

c 

SEC* 25  10 

c 

.;-•(.  .  520 

c 

•  »«♦••••••••*«•    STAT  2  (IP.  NT    NO.     1U0    «*•••«*«••••**«*•*••«•««♦*«**»«•:■;  EC'i  25  10 

c 

«»•»«**•»«»•••»*•««»»«••*»»»*»•••»••*»«•«»«•*«*••«•««»•*»«*»«**••«'•-•'►,  ;ri'iQ 

141    NI3=NNB                                                                                                                                                                  sf.Ctj  '550 

NNB=1                                                                                                                                                                        SErf>  .'r>'i3 

c 

srr»i  >570 

c 

COI-PUTE    DENSITY    OF    GAS    .1IXT0GE.                                                                                                              Sr.".,  >S    0 

c 

IE  ••<  2590 

RHO'JB=  (HGB»P)/  (10.7  32*TB)                                                                                                                  SETS  2s00 

c 

SECS 26  10 

c 

INTERPOLATE    FO R    DENSITIES    OF    LIQOIDS    A     AND    3.                                                                 SECu 2620 

c 

SEC6  2630 

N=10                                                                                                                                                                           3EC6  2o'»0 

NN  =  10                                                                                                                                                                        SEC-   >650 

CALL    INTPP  (ROALB,N,TB,P)                                                                                                                             SBrSJI'iO 

LL=27                                                                                                                                                                        SECu   ''-70 

IP  (N)  3  19,319,360                                                                                                                                 SKCfi  2->h0 

360   s=  fi                                                                                                                    sec*  '-.  •  i 

NN  =  11                                                                                                                                                                        SEC'i2710 

CALL    INTF?  ('OBLB.N.TB.PJ                                                                                                                     SEC6  2710 

LL=27                                                                                                                                                                        3E:'.27?0 

IF  (N)  3  19,319,3  63                                                                                                                                          SsiCo  2710 

c 

SECS 27H0 

c 

COHPUTE    DENSITY    CF    LIQUID    3IXTUPE.                                                                                               SECS 2750 

c 

SSC6 >769 

36  3    8HOLb=1.  C/(f  ALPHA  3/ 30  A  LB)  ♦  ((1.  0-ALPfl  A3)  /  (ROBLD)  )  )                                                 3"'j  >770 
ASAB=(  (1(»a.0*E!l1GP)  *  (1.  0/RHOG3*  .38/3HOLaj)  /VH                                                                 SEC*  27B0 

RVE=5i!OLE/  (DH*«nOGa)                                                                                                                                         SECtJ  J^O 
3=  (aflOLB»AtJAR*VB)  /{  lUtt.O'EBLS)                                                                                                     ?ECt   !S00 

c 

szc>  ^n^o 

CC         INTERPOLATE    INTO    VISCOSITY    TABLi.S    PTR     LIQUID    A    AND    3.                                        SE"6 2629 

C 

s?.r.h  jj  n 

N=1«                                                                                                                                                                SEC6  231*0 

SN=T»                                                                                                                                                                        SEC:'>   !"50 

CALL    TNT3P  (VIALB,N,TD,  ?)                                                                                                                             SECo.^'J 

LL  =  2H                                                                                                                                                                        3EC0  >73 

IF  f«)  3  19,319,366                                                                                                                                          SF7G  >'1'0 

366     N  =  15                                                                                                                                                                          SEC-W'^O 

NN  =  15                                                                                                                                                             SEi:b2*»-)0 

CALL    INTBP{?IBLB,N,TB,P)                                                                                                              SECr.2910 

IF(N)  3n),3b9,370                                                                                                                                         SEC02929 

369    LL  =  2S                                                                                                                                                             SEC629?0 

GO    TO    319                                                                                                                                                            SEC*  29<»0 

370    VIL3  =  ALrHAD* VI AL3* (1.0-ALPHAB)   'VIBLB                                                                                   SKCb 2950 

3Et  =  (flf)  17.  2*  Ed  LB)  /(VTL3*  (JOITf  AUAni  )   )                                                                                       SSC523nO 
ENTER    CORRENT    VALUE;;    OP    A    AND    ?    INTO    A     Vj    ?    TA3L£                                                        SECr,2970 

c 

c 

SF.C6  29  10 

529    NSTHT=529                                                                                                                                                            ."i'.'f".  301'0 

BETOBH                                                                                                                                                        SECb  1000 

c 

3?C6 3  0  10 

c 

«*•»*»•*«*««»••***»***»•**•»«•*•*»*»«»««•««•*«•»*»•»*•»«»*»  *•••  •»*S£T  Jf)7Q 

c 

ti$SSSStl*tSl?iT<.S$$li$S*tTSSSS$*:**t?1iZS'Z£'ST::SZT,iSTSSSSJS!S*£S5ZCb2<ji(i 

c 

FIHD    GOOD     APPROXIMATION    FOR    DS  1     TO    USE     IN    SUCCESSIVE                                                SEro30uQ 
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C  SUBSTITUTION     ROUTINE    AT    ST5P    90. 

C 
2399    KDSCT=9 

NS  ;«'r  =  99  99 

IBLH=0 

KDS=1 

SHC5=0 

SGK=0.5 

OS. TIN- 1.0E-6-2.0* fS*  (1.0  +  nj  /B) 

DSKAX=1 . 0*8- 1. 02-6 
12  39  9    CONTINUE 

DS1  =  D5.1IN 

IBW=1 

GO    TO    5000 
2101     CONTINUE 

DSX  1  =  OS  1 

DSfltS1=DSRES 

DS1=DS1AI 

r8W*2 

GO    TO    5  TOO 
2402    CONTINUE 

DSX2*DS  i 

DSaES2=OSRES 

IT  (X'JIX)  12402,2403,  12402 
12402    CONTINUE 

DS1=CS4  VE 

00    TO     1 2  403 
2 10 3    CONTINUE 

0S1=r)3X1-D53SS1*  (DSX2-DSX1)  /  (D3RE32-  OS 923  1) 

IBLX=1 
12U03    CONTINUE 

IB*=3 

GO    TO    SO  00 
2404    CONTINUE 

IF  (DSS  -:s»nsn  ES  1)  2405,2406,240o 
2  405    CONTINUE 

U3P  ;i::2  =  DSRes 

03*2'-!)  J  1 
SGN  =  -  1.  0»SGN 
'10    TO    2  4  07 
2106    CONTINUE 

DS3BS1=0SHES 

0  s  x  1 = n  n  i 

210  7    CONTINUE 

ir(Sr.N)   12107,2108,2103 

12«07  con::::  ie 

D51=DSX2 

GO    "0     24C3 

2108  CONTINUE 
C3  l=U5X 1 

2109  cot.'TirnjR 

OS 1=DS1 »SGN 

I?  (OS  1-D5KAX)  2110,2110,5060 

2110  CONTINUE 

IF  (U31-DSHIN)  5060, 12'-*  10,  12110 

12110  CONTINUE 

raw=i 

GO    "0    "0  00 

12111  CONTINUE 

IF  (SGN)    12111,  12112,  12112 

12112  CONTINUE 

1  »  (J:::"1- 3  *0SRES  2)  2106,124  13,121  13 

12113  CONTINUE 
D3iifo2-DS7.ES 
DSX2=D3 1 

GO    TO     12116 

12114  CONTINUE 

IP  (DSH;S«DSR53  1)   1 24  17,  12115,  12 115 

12115  CONTINUE 
aS2E31=DSRES 
0SX1=03 1 

12416    CONTINUE 


SEC  6 

10^0 

5  ECS 

?050 

SSC6 

107  0 

SSC5 

1?H0 

SEC6 

mo 

ssct 

ii  ") 

SECT6 

1110 

SECn 

i  1  JO 

3LC6 

.11  10 

SFC'j 

!  1 1  0 

SECO 

11S0 

SEC  6 

JU  0 

SEC 

)170 

3  EC  6 

>  mo 

3  EC6 

mo 

1  E^h 

1200 

3EC6 

1210 

3  EC 

J220 

SECto 

12  10 

3  ECU 

32'10 

SRCf. 

t;*.) 

3  EC 

5260 

SEC  6 

1?  '0 

3  Err, 

52*0 

3EC6 

1290 

SECu 

1  110 

SCC 

I  )-\o 

3  EC  6 

mo 

SEC 

I330 

s  ?.ry, 

Mi  5 

SEC  6 

nso 

SECb 

U'-O 

-.-  :6 

I  J70 

3CC6 

i  i  U 

3  EC 

I  I  to 

3  EC 

It") 

lECo 

14  10 

SEC 

H20 

3  EC6 

14  30 

SEC 

in  ) 

3  EC  • 

lit  »0 

3  EC6 

14  .0 

SEC 

1173 

3E  "0 

I1«0 

snefi 

.  i  j 

: '.  ■  , 

!:)00 

SEC 

is  io 

SEC 

IS  20 

SEC  6 

i5jo 

3  ECU 

1S40 

SEC 

I5r>0 

S  EC  'j 

ISnJ 

3  EC  6 

ir>  T) 

SEC 

•S-O 

3EC6 

1SOQ 

*EC 

if,;  o 

s^:f> 

itj  10 

SEC 

mo 

SEC 

In  10 

3,"  •'-, 

i'.IO 

S  Ff"h 

ll,50 

3  EC  6 

l»<"d 

SEC 

]O70 

SEC 

l-i-O 

SSC6 

36  >0 

3  cC 

170J 

SEC 

1710 

SEC  6 

1720 

SEC 

1730 

3  ECS 

'710 

SECo 

1750 

SEC 

176  3 

179 


SGN=SGN/10.0                                                                                                                                                        SErb  1770 

I3LW=I9LW*1                                                                                                                                                          SECS  17<t0 

IF  (IBLa-5)  2403,2403,5060  5EC6  1790 
CONTrsUE                                                                                                                                                                              SECG  JdOO 

12<»17 

DSPEI^OSTIES                                                                                                                                                        S?.C6  1)10 

D3X2=P5  1                                                                                                                                                        SEC6  H20 

GO    TO    2UC9                                                                                                                                                             3EC5  il  10 

C 

SECS  1H40 

c 

EVALUATE    D.S     FOR    GIVEN    0S1.          TEST    F  CR    COWVE33EKCE                                              jZCo  i  :r1 

c 

3~CS  j'1.,0 

c 

Sisssss  itt%sfsii-;Tisssss%%ss*$iStiS$s$$s$$stiisis$rsssifisz$t:sssi;7.co  1179 

c 

S^Cb    !'*B0 

5000 

CONTINUE                                                                                                                                                                  3E"b  M  ?0 

S«=3»03  1/2.0                                                                                                                                                        SErSVJOO 

M=1.0* (R*SH)/f"!.0»R)  SECb  3910 
Bfl=1.0-SN/(1.0*R)                                                                                                                                  S  ECS  1920 

D?BSO=  (-»VHB)  -(V2/BSJ  5EC5  l<H0 
VESS..i-VBS'3*0'/BSO/2.  0                                                                                                                                 SECb  V)'»0 

IF  (V5XSQ)  6000,5001,5001                                                        •                                                       SE'J6  1050 

6000 

CONTINUE                                                                                                                                                                              3  ECS  1  ■>•>  3 

W?TTI>     (6,9001)     3.1,3  ,P31,  Art, 8,0 «, DV3S Q, 71  ,  V2,  V3  *.S  J.  VBfl                                     S  KC6  1970 

CONTINUE                                                                                                                                                                             SErb  J^IQ 

5001 

Vn"«3JPT  (VurtSO)  SECb3990 
SE.l  =  h  1  *VE.1MriS  (S*)                                                                                                                                        SECS4OO0 

IF (RFX-.C0JOO1) 50  15,50  15  ,50  05  SECb 4010 
If(,1c.1-0.1>5020f5  02  0,=l010  SEC6  4  020 
IF  (REM- 20000.)  5030,  5(52  5,5025                                                                                                   S ECS  40  '0 

5005 

5010 

5C15 

C3=2.4EJ7                                                                                                                                                               SECS4  040 

GO    TO    50  15                                                                                                                                                             S ECU  4050 

5020 

Cn*24.3/RE«]                                                                                                                                                SSC64060 

GO    TO     ~>0  15                                                                                                                                                             S2CS  »  173 

5  025 

CD=0.45i9                                                                                                                                                               SKCo  10-") 

GO    TC    50  15  SEC64  no 

5030    C3=EX? (3.271-0.0HS3* (ALOG (HEN) ) ♦0.03417*  5SCS4100 

1  (  (ALi'G  (REM))  **2)  «-.001443*(  (ALOG(BBH)  1**3))  SECS  41  10 

5035    CONTINUE  SECb4l?0 

031P=-  (  (S1*ABS(SB)  *Sn*CD)/BH)  •♦  (S2/  (Oil  »V  a*  SO)  I  S?Cb4l  10 

1  ♦  (  (51*  lil  »[)V33;)  /VU.1SQ)  ♦S4»sh  SECj  4140 

DSRES=3!1F-D5  1  SECS4150 

IF  (AtS  (DSHES)  -EDS)  9  1,91,  50  4  0  SEC&11S0 

5040    DSkAY(KCS)  =0S1  S  SCO  »  170 

DSFAY  (K  OS*  1)  =D5BES  SEC6  4  1M0 

KDP=KD3*2  SEO»4l')0 

IE  [KD3-  ICO)  5  05  5,  5  05  5  ,5045  SECS  4  200 

5045     WRITE     (1^)     DSRAY  SECS4210 

K3SCT=K 3SCT*  1  3EC64220 

30    5050     L=  1.  100  SECb42J0 

5050    U3-MY  (L)  =0.3  SSCS4240 

KD5T=  1  SEC5  4250 

5055    SNLS  =  SN0S*1  SEC64260 

IP  (KMIJS-HDS1  50  70,50  70,5060  SEC6  4  270 

5060     rfRITE     (b,5065)     JoXI  ,  05  X2  ,  3S1  .DSRES1 ,  DSR  ES2,  DSR  E3  SECb«2'ia 

LL=18  3ECS4290 

GO    TO     14  90  SEC 6 4  J  10 

5070    CONTINUE  ".[  :6  43?0 

GOTO     (2401,2402.2404     12411.2405.2407.2409) ,I0M  3ECb»330 

c  isrJ:"?i;!ii»?iif  iss$  ;s z* s$i% $% ssim  ts z* $z iszt- s s  itrssstsstssssstii szr&j  mo 

C  3  ECS  4  ISO 

C          COJ1PUTE     WEXT    APPROXIMATION    TO     DS .  SECI.4lf-0 

C  SECb  H70 

91     NIS  =  ';"r>3  SECSulHO 

IPLX=1  SECbu  f'O 

0S=031  SEC64400 

DSAVE=D31  SECb   1410 

NNU3=0  SECS4420 

30    TO     100  SECb 4U30 

1490     NST.".T=1490  5SCS44U0 

3ET'j:-"»  SE-~b'lU50 

100    h'3T1T=100  3ETf44S0 

SETUf.N  SECb4U70 

500    !iOIAC,=  1  SEC644H0 

CALL    O0TF0T(HNM,LPGCT,."1GSO)  SECS  4490 
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NST1T= 

10 

SFT6U500 

RETURN 

SSC6-»510 

5065    F0H1AT (1H0.7X. 

511 

■so  ns  co 

•veBuSHCE 

CO'ILD 

3FTECT    NO 

SIGN     CHANG 

1IN    ,J!»; 

l?E3  I3'!A  IS 

OF     r(DS) 

VALUES 

FOLLJU       /(1  )X,  1Pf> 

-.15.1.)  ) 

SECS^S  !0 

9  001    FORMAT 

;iho,iox 

1 1 HO,7r_ 
,  1FE12.4 

.20HNFGATI V 
17|jniTSIDE 

'     V3,1b0,3 

"Tb    /[1X 
,     46,/H 

1  f  B  E  1 5  .  b 

) 

SF.CjUSyO 

9  136    F081AT 

<ANGE    OF 

•A8L2- ,5X 

S2Cf>USr>0 

lunT  = 

,5X.UHP    =     . 

:i2.u) 

J  3"^  l5f.O 

9310    FOF1AT 

[1H0,7X, 

12 

Ill.-.GATIVF. 

PA  3) 

<3r.T6  '*570 

9312     POF1AT 

'  1H0.7X, 

12H3EOATIVE 

PBB) 

SECfi  ^-'O 

9313     FOhlAT 

100, 1%, 

1FE12.5 

171 

!  OUTSIDE 

1ANGE    OF 

rA6,7H    TABL1 

SHC64590 

KtllT    = 

,  5' 

C.ttH?    =    . 

!INFTNITF. 

-12.U) 

SECt>4u70 

9320    F0F1AT 

( 1H0.7K, 

12 

PAD) 

[v-  r  ni 

SEC* lb  10 

9333    FOPI AT 

!  1H0.7X, 

Id 

'NONr'iSIT 

SEC6  4H20 

9352    TOKflAT 

1H0.7X, 
!  1H    ,1P1 

24 1 

'COULD    NOT    CONVERGE     ON    TB) 

r  !;_•-.  u6  13 

9<»91     F0H1AT 

OE 

I  !.  4) 

SECT)  UfiU3 

END 

3i:cf>^oSQ 

SUBil 

■-:'-o'jOio 

cor son 

TZZZK1 

THHO  )'120 

DIIFJNSTON    -ZZLZVt  t  112J0) 

TIMOJ.HO 

C               THE    ABOVE    C3RMON 

BLOCK    FOR    S'JuFOUT 

[N  ES    TAbLE    1 

rnnoooso 

C               IT    WIST     EF    rHE 

FlhST    C0110N     3I.OCK 

THiOOTiO 

conaoN 

A 

ABAS 

A  LAI 

ALTUAB 

,     ALPHA 

ALTH.1B 

,               TSIFO0J70 

1 

ALPHS 

A1 

,     AP 

A3 

,     AT 

,     3A 

,              THFOJl-IO 

2 

DU 

JETAB 

,     BETAHB 

GETil 

,    a ETAS 

bfl 

rnsoso^o 

3 

C 

CI 

CAG1 

,    CA.ino 

,    ::  i  n 

CAL.1B 

,        ni :  ■>  >  1  ^3 

U    CBG1 

,     CAL 

CASE 

c  pa  1  a 

cnc;         , 

raLin 

C3L 

THFO  )1  1  J 

COSHON 

CDSS 

CD? 

C3               , 

crri 

cpr;is 

CF03 

,                                     T;i            31120 

6 

CFOBS 

c;  *.b 

cur. 

,     CG15 

,    CL"j 

CL" 

T  1  '3)1  !0 

7 

CL1J 

C  S  A  V  E 

,     3 

D2 

PA 

NATE 

TH;t3  )  I'lO 

a 

3D 

3  ELI  ft 

DELI 

DELIS 

JiLON 

P.-.LO 

TIKiO  J150 

9 

DtLOS 

D  ELS  I      , 

3 CI  SO 

j"  in 

DELT 

UELV2 

THHO  )  1h3 

COHSOH 

DEI  AG 

3 

3^">AG 

DEfl UGB 

D21UG 

3i:iGD 

DIH  T 

TH'IOOITO 

1 

DL5IS 

DL305       , 

DO 

nr  1         , 

0? 

DRAY 

TIIR3  j  1°3 

2 

DPI 

QRC 

DR 

C3  1           . 

OSAVE 

,     DSL 11 

TUP')  )1  -0 

3 

331  AX 

D  S  .11 N 

,    DSKATI 

•jh-'ay 

,   os:-r:si 

1)33  ES2 

,              TI{TnJ230 

U 

DS?  ES 

DS                , 

DSX  1 

P3X2 

3  ^G  I 

DT  J3 

rH**3  021Q 

COHBOM 

DTU 

DTHI 

DTHO 

,      0TL1 

DTLB 

3  7L 

rin;i  12  !0 

6 

DT 

nvuso 

DVG3Q 

CVL3U 

DX 

RYI 

Tli^OO^IO 

7 

DY3 

EB                , 

Bi'S 

^i\Ga 

,    ".-.a.; 

"^xr.ii 

T!P'i,j""n 

3 

Z13G 

F.  119 

El  3 

E1G3 

F.XLU 

-:v.  lm 

THR30250 

9 

EI"L 

El  1.3 

Cf^T 

r30 

L'LFFP 

rilX 

TIUUO'*  0 

COflflON 

H 

I1JT 

H  K  A  0 

HK  BG 

H  K  G  .1 1 

!IX3,12 

TirilO0270 

1 

HK3H 

KKOMS 

HLA  1 

HLA1 

,      ILA 

HLA  3 

TI130J7^0 

2 

HL3  1 

tlLTI 

Uo 

HI.  US 

11 

I.13             , 

TI!  '3  J2'.'0 

3 

HO^E 

HT 

I  AC  V 

,      I  =  Vi 
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003  porbat ( iHO.i  ix,..;iror,,nx, 3HHOL 

112X,2I!PA,12X,2H?B,12X,2HLA,  12X 

00 H     POSBATl  1H0,)X,"5HPinBA,  11X,  HIC". 

1  "ill  VTLM  ,  1  IX,  3  I;  KGB,  '1  X  .  IIH  :.'.  ,  1  1X 
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DIBENSION    77.ZZAY  <  11201) 


.  l;t 
X,1 

,2H 

,5ti 

HX 

OH, 

1  IX 


IX, 

en". 
,  i  i 

nx 

,311 
x,  1 


12T.2HVB,  lit.  It! A,  nx,2H7G,  12X,     T 

/. 

V\ 

,  1 


X,  7. 

.•>  < 

Kr,  , 

■jX, 
CLB 

itV  J 

W 

LOW 


HIV 

lit 

1~  ) 

<n 
2T»H 

OX, 

0,/ 

ox, 
.«) 

) 


,  1  2  X  ,  2  H  F  A ,  1 X  , 

3i  14.4) 

,3HWU  ;,  12X.2HWG, 

c'  1  4  .  U  ) 

x ,  ■■» !!  V  I  G  B  ,  1 0  X  , 
B, /.6X,  l?lrl«.il) 
UH05LO.9X,  ")!!DiL«0, 
,b  X.   !?0P1U.U 
UiiDELI,  "X.5HDEL*!, 


THRO 
THHO 
T'IRO 
TilHO 

r'!"o 

TH.-O 
TH  'i 
THHO 
TH^') 
THi»0 
Til  '0 
THBO 

Tir<o 

THRO 
8RAYTHP.J 

Ti:  ") 
TI!30 

ti:~) 

7HP0 
TH'-Tj 
TH.iO 

Tinn 

thi;'! 
THW!) 

t;i:'0 

T !!  P  0 

nisa 

TII.TO 
THHO 

Tin 

THKO 


th;(J 

THRO 

?'!.■') 

rn-«o 

TH30 

~H  '  ) 
TKi  ) 
T.TO 
THS-l 
TKi  0 

I        ' 

THRO 
TI!i<0 

TIIPO 

-n-o 
r:i"o 

TH  1 
THRO 
7HP0 

Tinn 

Tiirn 

rii  o 


»«i 


c 

THE    ALJVF    COBB 

OH 

BLOCK 

FOK    303ROU7TM Efl     TABL 

:    AND    INTI 

(? 

c 

IT    31IST     BE    T:tB 

f: 

:;.F7    COBBON     BLOCK 

COr.BOt!           A 

AlUS 

,     A  LA  B 

ALPHAS 

4LPUA 

VLFHBB 

1                             A  LP  US 

AB 

.     *P                . 

AS 

,    AT 

,     t*A 

2                             BB 

3ETAB 

,     BETABd    , 

BET* 

,     0S7AS       , 

3B 

3                         C 

C1 

,     CAG  1 

c\.;bb 

:ag 

CALBB 

4    CBG1        ,    CAL 

CASE 

,     C3GBB       , 

CBG           , 

Z  3  L.I  B       . 

C3L 

coanoN       cais 

CDP 

.     CD 

•:fib 

;ftbs 

CFOB 

Tien 
a  1 1 3 
ar\G 

01  AG 

dia-; 
aiA  ; 

01 A  i 

OTAG 
Z 1 1>.  3 

OTAG 

o  i  s  r, 

DIAG 


0S80 

osoo 

J600 
OblO 

r,?o 

.".  3  0 
06U0 

)6S0 
Onf.0 

jt>70 
Oft  -"0 

w^o 

1700 
J710 
0720 
07  30 
07U0 
07r  0 
J7',C 
0770 
J7'i0 
J7  O 

vino 
.810 
)H20 

•j  3  0 

.,  ,U;J 

)"^0 
UM6  0 
)870 
1830 

)«00 

)0?0 

mo 

nuo 
)1S0 

■n<>o 

J  170 
TJHO 
J110 
li  00 
1  310 

io  ->o 

it  n 

'(t.'iO 
1  ;r.O 
1J60 
1  J70 
11X0 

nil) 
1100 
1110 
1120 

1  1  !0 

nuo 
i  iso 

I  1(, o 
1  170 

i  no 

JJ10 
.102  0 

,i  \o 

JuSO 

OI'.O 
)070 

J0'<0 
1100 
0 1 1  0 
0120 


.82 


6 

crons 

,    CG13 

,     CGB 

,     CGBS 

,     CL1B 

,    CL» 

,             DIAG0130 

7 

CLSS 

,    CSAVE 

r     D 

r      02 

,     DA 

,     DATE 

,             0H50U0 

8 

DD 

,     DEHN 

,     DEM 

,      DELIS 

,     DiiLOn 

,     OSLO 

,             DIAGtHIO 

9 

DELOS 

,    d  S  LS  I 

,     DFLSO 

,      DELn 

,     DFLT 

,     TELV2 

DIA'DlhO 

COflBOM 

Dfil  AGB 

,     DE"AG 

,     DL1UGB 

,      Di)1BG 

,     DF..1GQ 

,    DIH7 

,              DT A3  1170 

1 

DUIS 

,     DL30S 

,     DO 

,     DPI 

.    r>p 

,     PP.".  Y 

,              DIAG01U0 

2 

DPI 

,     DKO 

-     DR 

,      D31 

,     DSAVE 

,  pstin 

,              DTAGll'^O 

3 

DSMAX 

,     D5.1IN 

,     DSRAY1 

,      D3PAT 

,     P-SHE31 

,     D3PES2 

,            DVAG0200 

V 

DSRFS 

r     DS 

,     TJSiC  1 

,     Ds;<2 

,     DTG1 

,     UTSU 

DIAG  )210 

conaoti 

PTG 

,     DTHI 

r     DTHO 

,     DILI 

,     DTLB 

,     DXL 

,             DrA3J210 

6 

DT 

,    D73SQ 

,     D  VG  SO 

,     DVLSO 

t     DX 

,     P-YL 

,             DIA1  1230 

7 

on 

,     EB 

EDS 

,      EKAGB 

,     El  AG 

F1BGB 

,         DI^J^2uo 

8 

EXBG 

,    ESGB 

,    Err, 

,     f'JS 

,     ~1L3 

E,1L« 

,            DIAG0250 

9 

H1L 

,     F  n  L3 

Ear 

,     ESO 

,    PI.E3P 

V"'IX 

UIA S0260 

coasos 

H 

,     HJI 

UK  AG 

,      HKBG 

,     ilKGal 

IIK-..12 

,             DIAG3270 

i 

HK3B 

,     HKGKS 

,     ilLAI 

,      HLA1 

,     HLA 

HLA3 

DIAG j2B0 

2 

HLB1 

H  L  3,1 

,     HLF 

,     HLLS 

,    HM 

HXS 

,            DIAG0290 

3 

HOPE 

,    IT 

TACV 

,      I3L4 

IBLX 

IB* 

,            DIAG0300 

<♦ 

IJH 

,    1ST 

ISET 

,      I7.ER0 

.     * 

Kl 

DIAG  )J10 

COHBON 

K2 

KAP            . 

KDSC7 

,      KD3 

.*  I-                i 

KR1 

,             DIAG J  32  0 

6 

KR 

<TBCT 

KT3 

,      KXP1 

,     KXP 

L 

,              DIAG J  3^0 

7 

LI 

.    L2              , 

LCT1 

,     LCT2 

,     LL 

LPGCT 

,            DIAG03U0 

3 

L3W 

,    BB1! 

1FP0 

,     HFP 

,     1GF0 

K1 

DIAG  )  *S0 

9    H 

,     HO? 

,    rt  T ilT 

N  ACV 

,      N3 

,     NCI.K 

NC75 

DIA10360 

COflflOS 

NDI  AG 

HDS            , 

NGG 

NTB 

,     S  T  S 

N  L3  T 

,             DIAG  H70 

1 

N.'IA 

K  N  B            , 

NNDS 

NNN             . 

N  N  P              , 

NN 

DIAG  J3'10 

2 

NKiOO 

n  u  so 

'IN  3 

NP 

BSO 

as 

DIAGH90 

3 

? 

?n 

P11 

PAB 

PA1B 

PA 

DIA1  )<*03 

u 

PAG 

PUB              , 

FBMB 

,    poon 

,     P  BO              , 

P3 

DIA'J  T*  10 

consoM 

PbS 

PHIAB 

PHI  BA 

PHI 

-PINT           , 

TL                 . 

DIAG0U20 

6 

PL1 

PO 

?S 

PT 

J                     i 

yID 

DIAG  u  U  10 

7 

PI 

HA                 . 

PA3 

P.AXO 

,     !:  A  X             , 

RB 

OIAG JUUO 

8 

BC 

,  Rosna 

RD'.  L01 

,      RDI.1S 

RD0.1S       , 

REF 

DIAG  .IUr,0 

9 

RCN 

HdlS          , 

RPSLI.I 

aaso 

RES  7,          . 

CilOGB 

ruAG  j u »» o 

CO  .1  BOH 

a  HOG 

P  HOGS 

.1H0L3 

RFi  )LM 

MHOL          , 

oflOLS 

DIAG  J!»70 

1 

HT1 

HI 

R.I 

R0AL3       , 

P.OAL           . 

"OULB 

DIAGUUmO 

2 

R03L 

R01              . 

RO 

R 

PS  LIS       , 

PS 

DIAG ^UQO 

3 

I'vn          . 

wv                 . 

dVG 

s 

1  '               < 

32               . 

r>iAG  jsoo 

u 

33 

S*              i 

SA 

SB 

-     i  "'  N              . 

315 

DIAGO'jIO 

cobboh 

sir.  s 

,    SKIN 

31J  1 

S1J2 

S1I.C 

s:ild 

DIAG  JS.'O 

6 

S.1L  E 

S1LF 

s:ilg 

Sfl 

30J1 

30.12 

riJr;35  to 

7 

SOP 

30               , 

3  03,1 

3  ^> 

3  Z  •* 

330 

RIA  ;   )^U0 

8 

T 

TB               , 

TBL  AY 

TB.(A  Y1 

r  r.  a  a       I 

■"G.l 

DIAGJ550 

9 

7(1                 , 

r«s        , 

i  h  i  a 

TUIO           , 

ptii         , 

THIS 

DIAG '1560 

COIHON 

THOfl           , 

71!  00           , 

T'lO             . 

Til  OS 

rx            , 

TKT              . 

DIAG  1S70 

1 

1  LI  B           , 

7L.^              , 

TL               . 

TLS 

^ST 

T»ra       , 

DIAG  IS-iO 

2 

T.T  ,1S 

Twoi         , 

T'.ons     , 

VI                , 

V  2                 , 

V  A  I?             . 

DIAG 05^0 

3 

VHD 

V3DG          , 

VP.1             . 

V'lljij 

73 

VB30          , 

DIAG  lh'10 

U 

70S              , 

710             , 

7G                , 

VG35 

7G3              , 

71AG 

DIAG  .1610 

connoH 

VIALB        , 

7  IAL           , 

7TUG          . 

7TL-LB       . 

7I1L           , 

VT3  3          , 

DIAG  )b20 

6 

?i';ns     , 

7  I  LB 

V  T  L  .1          , 

VTLM3 

7L1              , 

VLO              , 

PI'.  GJn  10 

7 

VL               , 

VLSO         , 

VL3             , 

VS 

VSS              ( 

-A  13           , 

DIAG  1b4  0 

8 

»ag          , 

*  A  IS           , 

WAL             , 

d  3GB          , 

t  3G              , 

*b-.S          , 

DIAG J*50 

9 

«0L             . 

-  G  B             , 

hG                , 

VC.'J              , 

»  1 .1              , 

i  \  a  S 

DIAGOfihO 

COHHON 

•"US              , 

a  0 13          . 

X                  , 

X10            , 

X  1  1              , 

XCLK           , 

DIAG  0670 

1 

XINT 

XP 

xs 

XX               , 

XXA 

71                 , 

DIAG  !o»0 

2 

ris         , 

YO               , 

YOS             , 

Z2Z            ( 

USTBT 

DIAG  16  >J 

DIHF.SS I 

ON    PL  f  1  0) 

DI.AG  5  7i'0 

DI1ESS 

1CM    N"RAY 

7">l 
.CASS  {31  , 

D  I  \  G  0  7  1 0 

DIBENS  ION     PATS  (SI 

'110(8)  ,  X- 
,DS'R  AY  (  r 

»f  2,75)  .PI 
i)  ,D3SAT 

-If  TO)  , 

(100) ,TD£ 

.hag  mo 

1                   C 

(6  ,"<!);  2. 
j  a  a  y  <  7  5 1 ,  t 

e  :<  c  s    (  n  b  p ; 

5)  ,  XXA(o) 

[AY  (100)  ,1 

"BRAYDT AG  !7  10 

21  (100)  , 
EGOIVAL 

1MB    .1)11 

Y     1) ,DRA1 

Tf8) 
(1)i 

DIAG J74  0 

DIAG  >7r,0 

I?  (Ii3T:r 

T-H'17)    1  f»l 

7.2 

DIAG  J7^0 

1    CALL    DO 

Kf 

DIAGD770 

2    IFfNSTM 

T-529)  1  .52 

9.1 

•JIAG.j7'U 

497    H5T«T*9999 

DIAGU7»0 

I?  (NDTA 

G-1)  10,«9£ 

.10 

DIAGG890 

198    DO    499 

1=1,75 

DIAG  1"10 

DRAY(I) 
U99    CONTZND 

=99999. 

DIAG  JI^O 

B 

JIAG0810 

LS'*=0 

DIAG08U0 

18 


DI 


GO    TO  [5 01, SO  2,  503  ,5  0*4.505,506,507,50  8,  50<». 510.51 1.512.51  J,51«, 
5  15,516,517,518,519,520,521,522,523 ,'24,525,526,527,528, 
524)  ,  LL 

AGNOSTIC    OUTPUT.  ENTRY    IS    HADE    TO     5 eT    CERTAIN 

SETS    OF    OUTPUT    VALUcS    INTO    THE    ARRAY    MAY    DEPENDING 
ON    PH"     VALCli    OF    LL,     WHICH    IS    SfcT    IN     VARIOOo    POINTS    THROUGHOUT 
THE    IAIN    PROGRA.1. 
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PRAY  2-1 
DRAY  (I'M 
D°AY (1) = 
DRAY  -I  = 
DRAY  1) = 
DRAY  MO) 
DRAY (21) 
DRAY (3 1) 
DRAf (3  2) 
DPAY  (3  1) 
GO  TO  15 
n  R  A  Y  ( 3  3  ) 
DRAY  32) 
DRAY(3 1 
DRAY 


I 
[511 


2'») 

30) 

III 

55 


DRAf 
DHAY 
DRAY 
DRAY 
DRAY  [53 
DRAY (57 
DR\Y  (62 
DRAY  (68 
DBAY(67 
DBAYJ66 


=RBF 

°1 

=  /IL8 

*Q 

=  A  t!A  R 
=  HUDLB 
=  1  M'J  G  3 
-T'J 

=  :;ilb 

■  ZMGU 

=  RJ 

=32TA3 
=  A  LP  II A  B 

=  UG3 

-  w  rr,  n 

=  WAGB 
=  P33 
=  PAb 
»CFIfl 
=  RDSLII! 

=  r.i  r 

-  IDE  LOB 

=  H". 
=CD 
= H K.l 
-Vl)1 

-  JOfl 
=P-LSO 
=  DELO 

=TH3I1 
=DEt5I 
=  DtXI 
=T!II 

■aia 

A 

=  D 

=  s;i 

=  SA 
VL 
VG 
X 

=C  L.I 

=can 

=VTLM 
=HK3S 

11 
=HK.G.1 

=  VIL.l 

=vraa 

=  CG1 
=CL.l 

=  Y9D 

■son 

OEL30 
=  U2L0 
*THO 
=T  «0  fl 
=DELSI 
=  DELI 
=THI 


DIAG 

3RS0 

DIAG 

1.360 

m;G 

187Q 

01  AG 

)QT) 

DIAG 

JH3J 

HAG 

I'l  '0 

DIAG 

)  110 

DIAG 

)')20 

oiac 

1110 

DIAG 

Jiuo 

DIAG 

)95Q 

DIAG 

)160 

DIAG 

1170 

D I A  3 

J  i^O 

DM.', 

1990 

dia  ; 

noo 

DIAG 

10  10 

DIA  ; 

1020 

DIAG 

n  to 

DIAG 

10U0 

JIAG 

1  r.o 

UIAi 

1  j-iO 

DIAG 

1.170 

DIAG 

10  to 

DIA  ; 

1  )'n 

1113 

1  ini 

DIAG 

1110 

DIAG 

1120 

DIAG 

1  m 

DIAG 

!  no 

DIM 

1  160 

DIAG 

1160 

DIAG 

1  m 

01.1  J 

1 1 10 

DIAG 

mo 

DIAG 

12J0 

DIA  ; 

12  m 

DUG 

1220 

D  I  A  G 

12  >1 

11  AG 

I2'»0 

dia  ; 

12  >0 

DIAG 

1260 

DIA  '. 

1270 

oni 

12.H0 

DIAG 

12"0 

DIAG 

1  )00 

DIAG 

1  .,0 

01 A  3 

1  ISO 

DIAG 

1  J  10 

d  i  ••  ; 

1  3'«0 

C  I  AG 

1  <5  0 

dia  ; 

1  160 

u  I  a  ; 

1  no 

DIAG 

1  HO 

i)  I  A  ". 

1  1"0 

DIAG 

1  '1 .1 0 

DIA  ; 

1  u  1  0 

DIAG 

i'i:o 

DIAG 

i.no 

DIA3 

inaj 

DM  i 

4^1 

DIA  ". 

i  a  6  n 

DIA  -. 

in  '0 

DIAG 

1  u ,'  .1 

1TAG 

u"0 

DIAG 

15  30 

DIA  ; 

1510 

dia.; 

15  20 

diag 

1530 

D  1  A  G 

15-0 

DIAG 

1650 

DIAG 

ISbO 
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AY  (J)  ,J»1,  10) 


C'JTP'IT   -   variables   hot    yf.t  computed  this 

A^S    3"T    TO     1QK5.     PRINT    OUT     N1NR    LINE?; 


,100  1 

,  1002 

,1003 

,  100  4 

,1005 

,  rao 

,1007 
,  103  H 


ID  PAT 
ORA  Y 

(DRAY 
(-SAY 

(TPA  Y 

(UFA'' 

pw.\r 

OR*  Y 


L  I    ,  i.-    I  ,     •) 

i    ,  i  =  1 6 ,  i  a 

rj  ,7=19,27 
I | , I=2H,3b 

,1=29,45 
,  I  =  u,,  ,su 
,I*S5  ,6  i 
,1  =  04 ,7  1 


10 
63 


WRIT?     (b,1009)     USA, NTS, NIB 

N:;i,1T=  10 
a ETUPN 
NS7TT=6  3 

nETU3N' 


POHIiaT    STATPI'NTS    FOR     1-  LI  NC     PERMANENT     OUTPUT. 


1001  POMAT  (  1 
12KTL.12X 

1002  -OPMA;  (  1 
15HAL:  "A  , 

1003  .QR.1AT  (  l 
1  12X,2!IPA 

1004  FOrlATfl 
lUHVILfl, 1 


H0.13X,  1»X,  13X,  III",  13X,  1HH,  1 2X,2UV3,  13X,  HIA,  12X,2< 

.2HVC- 12X,2HVI.,/.6X,9E06.4l 

b0,12X.2HV5,  UX,  inS,13X,1H.b,  12X,  2li.uV  ,  1  2  X  ,  2H  F  A  ,  4<  , 

13X.4HFUTA,  12X  ,2H1G,  l2X,2H*L,/,bX.9E1U.U) 

HO  .1  IX  ,  3i'.H)G,  1  IX  -JHROL  ,  1 1  X,  5  H*  Ac,  ,  1  1  X  ,  i  HW  !)G  ,  12X  ,  2H  WG  . 

,  12X,2M?li,  12X.2MLA,  12X  ,2HL3,  /,  oX  ,  9E  1  4  .  t>) 

H3,9x,5H_IG,1Ac  11*.  3HCGJI,  1  IX,  3HCL.1,  10X,4HVIG*,1CX, 

U,3iiKG(1,  11X,JHBEi1,  1  U  .JllCDI  ,  12X,2HH«,/,uX,  1P1-.1S.4) 


ITG, 12X, 


DTA-.  1S70 
DIAG  1590 
DIAG  1510 
div;  H.CO 
D I  n  .1  1  6  1  0 
DIA  J  1«>2vJ 
0 1  \  ".  1 b  1 0 

ntAi;  1<>40 

DIAti  1»'i0 

ni\:;  I'.to 
di\g  u,  so 

DIAG  1'v>0 
DIAG  17^0 

mi:;  1710 

DIAO  17">0 
D I A  r,  1  7  1  o 
DM"".  174  0 
01  AG  17r>0 
DIAG  1780 
Oil  ;  1773 
DIAG  1780 

oi  \r,  1710 
DIM",  moo 
or*:;  mo 
dim;  wo 
di.ag  n  (0 
D  I A  ;  i  4  4  0 
DIAG  l^'iO 

d  :  a  :;  n  h  o 

D  I  \  •;  1  :i/'0 

n  i ;  ■",  1  a  h  o 

DIAG  M  *0 

OUG  io">0 
D  T  »  .".  1  Q  1 0 
01 AG  19? 3 

diag  n  '0 

or \  ;  i>i  i 
diag  19r,0 

DIAG  1973 

on".  n"0 

D I A  G  1 9  9  0 
01  AG  \>  !0 
DUG 20  10 
DIAG2020 
01  AG  20  10 

dh;.'  mo 

OI'-,  ?Jr.9 
OTA  J2060 

0  TAG  2173 
DIA".  2010 

01  AG  2  I4Q 
0  I A  G  2  1 1:  3 
DI\G21  13 
DIAG 2  120 

r>  r  \  g  2 1 1  o 

DIAG.M4  0 
DIA  12150 
DIAG 2  160 

DIAG..170 
DIAG?  IPO 
DIA.:  jViO 
DIAG 2200 
JI AG  2  2  20 
0IAG2230 
DIA  G,'2'i3 
3IAJ  :250 
DIAG<2hO 
DIAG  2  !70 
DIAG 22*0 
0IAG2290 
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1005 

1006 

1007 

1008 

1009 
C1032 
C 


FOR.1AT  < 

19X.5IIDF. 

FOPKAr  ( 

H  W 


11  U.J 

FOf«A 
19X.5' 


9231 


FORI  AT ( 
15HBE3I* 

FOPHAT 

FOB1A 
1 

2ND 

SUBROUT 
1  Dt 

WRITE     ( 
1  OS 

BETORN 

FOP1AT  ( 

ftag 


1  HO  ,  1 

'AB.I 
1H0.1 

IP, 11 
1H0.1 

0  01,1 
1KJ.1 
10  X, 


rjiKi,1 

26  H    TM 


HSB,  12 

mr.3,1 

HBOG*, 
PAD,  11 
I1Y.1,  11 

H  C  F  0 1 , 
ilYI  .  11 
11,  1  IX 
,311  SNA 

SliPAGi; 
TONFVT 


X,2H 

11,1 

10X, 
X,  Jli 
X,  VA 
1JX, 
X,  311 


.to 

NOZ 


2X.2 

.  Ux 
Lb,  i 

1  IX, 
11X, 

01,  1 
1  IX, 

/»••'< 
UN  in 
X,  15 

FLO  >J 


IT  P 

fix 
lag 
);i  r 
IX, 

HIT 
,  d  F 

Hit  F 


,  11X,  3HPV3  ,>X,5H»LP!1B, 
VILb,/,'>X,  9F14.  4  ) 

unaA<;3,  ir,  x.unwnGa, 

,  11  <f  lHi!i.F,/,hX,  1F14.U) 
lin,l0x,'J»OEl.O.9X,5n3iit*O, 
1HVBD,/,»X,9E14.I») 
•II  ,  1  OX.OdDSI.I.  aX,  5'IDSL'I  ,')X, 
14.  4) 

IX,     3HNn    /2X,     3(bX,I6)) 
At.    rUO-?'IAS3    , 


C    SUB 

c 


15H0E 
1  31ILA 

1  15 

2  lb 
END 
SUDP.OUT 

BOUTINF 
TAP?    20 
DIlFNil 
SJUIVAL 

L=1 

IF  (N)  99 


:    WFJTS  (DVGS(J,I)TL,  .71011,  3VLr?Q.,DE1AG,  DE13G, 

!,EI!G,HL»1  ,CAG1  ,0EL7,  HLB1,CPfil,Sn,A«,  Jf!,0X,03) 
>71  1)     UVGo-.)..TTL,.;HUi..«  ,  jVLS?  ,nSf!A«,3213f;, 
!,2MG,HLAl,CAfi1,D2LT, HLB1,CBG1,5«,Aa, 3«,DX,DS 

),1  2X,5HOVGrj,14X,  3I1DTL,  12X  ,  5HR  H0L.1 . 1  2X  ,  5H  D  VLSQ  ,  12X, 

>X,  5HDEfloG  ,  l2x,5HDEI.V2,/,  IX  ,  lF7c.17_o,//.15X,  VIE..1G,  1UX, 

I3X,I»»CAG1  .  13X,  «rr>F:LT  ,l4X,  3  HLB1  ,  13X,UrtCftG1, 

!'ISH,/.  IX.  7F17.0,//, 

'MAS.  !5X,2HDH,15X,2HDX,15T,  2HDS,/,  IX,  7E17.6) 

>   OUTPUT (N,L?G,  BGBO) 

?P.Ar>    3AVE0    PRINT    LINES     FROM    LOGICAL 
)    PRINT    TIIE1    ON    cOhIARAN    OUTPUT    TAPE. 

03  AY  (75).  NDRAY  (75) 
:E     (DBAY  (1)  ,:iOr.AY  (1)) 


READ  ( 1 
IFJL15, 
MPITP     { 


=  LPf 


LPG- 
L  =  0 

GO  TO 
HP  IT" 
L=1 
WRITE 
WRITE 
BRITS 
WRITE 
WRITE 
WRIT1- 

a  SITE 

ip  i*r,E 

WRITS' 


continue 


,99,2 
1)  JRA 
5,4 
6     103 
♦  1 

6 

6  ,999 

6  ,100 
6  ,  1C  1 
6  ,100 
6  ,  1  JJ 
6,  10  J 
6,105 
6  ,100 
I  7  1 
b  ,100 


Y 

2)      LTG 


OPA  Y  (T) 
D  °  A  Y  ( I ) 
OFAY  fl) 
DfAY  (I) 
J  P  A  f  I  ) 
DBAY  I) 
DI  AY  (I 


1=1  .01 
I  =  15, 1  a 
1=19,27 

1=29  ,.1b) 
1=37,45 
£  =4b  ,5  <* 
1  =  55, b  3 


99 

99  R 

C1000 

1001 

1002 

1003 

100U 

1005 

1G06 

1007 

1008 


WRITE 

N  =  S-1 
GO  T° 
B  E  W  I  :i  D 
RETURN 
FOI'MT 
FOP* AT 
POf-.-AT 

12HTL. 1 
fOr.lAT  ( 

15HA1.PHA 
POI  «AT  ( 

1 1 2  x ,  i  if  r 

FOF'.AT ( 
14HVIL1  , 

FOI-.1A""  ( 
19X,:x'5E 

popfur  i 

1  1  1X.3HW 
POR1AT { 

19X.5HP.E 
FOEHAT  ( 

15HBEDIN 


(6,  100  9) 


(0PAY  (I)  ,1=64,71) 
(NDRAY  (1)  ,1  =  72, 74) 


1  1 

1H0,/ 
bX,  1? 
1H0.1 

r.  ,2ii» 

1110,1 
,  10X, 
1  HO,  1 
A  ,1..X 
1 H  0 ,  3 
1  IX, J 

i  :io ,  i 

T  A3  ,  1 

mo.' 
r.  B ,  1 1 
1H0.1 
DGS.1 
1  HO  ,  1 
,  10X, 


14» 

12X 

BE! 
l\ 
IIP? 
5H.G 
G.I, 
,2(1 

'M 

,4H 

,2  u 
CFI 


VS. 
A,   1 


IG1 

11  X 


>'OG 
A3, 
YO, 
CFO 

U* 
•1.1 


IX, 1 
VL,/ 

s;3 

,1  IX 
X,  211 
A,  11 
,  iilk 
\lt, 
.  1  IX 
d,1J 
11X, 
11X. 
.1,  10 

nx, 

OX, 4 


HP. 

,b>: 
ins 

X,  3 

;:"a 

,  3:< 
X,4 

Jar 

3"W 

X,4 

3fiw 

HTW 


13X 

,9E 

\W 

?OL 
12< 

ho; 

1  IX 

Iti 

,1KI. 
3B, 
0", 
iiTW 
II, 
II, 


.    Ml 

14. 
X,  1 

*n 

.211 
1. 1 

2i!'! 

:^ 

13  X 
11X 
01, 
1  IX 
/»6 


B,  1  2X 

41 

'10,   12 

-i  i  L  ,  / 

X.  HIW 

r.fi,  /. 

IX,  3'l 

cni ,  i 

2'irn, 

X,  4  117 

nx  ,4 

,  1  11  c  , 

,  IHTH 
11X  ,3 
,  i  4  TH 

X,  3  El 

,2IIVB,  13X.1HA,  12X.2HTG,  12  X, 

X,2!ihV.12X,2HRA,9X, 

,Gi.  ).•  V.  .4| 

AG  ,1  IX,  i  HWDG,  12X.2HWG, 

bx  .O1:^.  4) 

rVfl,  10  X,  4MVIGK  ,  10X, 
2X, 2HHR,  /, o<, °^14.4) 

ii  x.jmva.  'x,3;ial?'I3, 
:l3,/,.ix  ,&eiS.u) 

«'■)  .\GB,  1  IX,  4HW3GU, 

11  X,  Jil«»=r r"  ,/,t»X,9E1u  .4) 

0, 10X,4HDELO, 4X,^HDEL»0, 
HVDP,/.CX, 4F14.4) 
I,10X,4HOEI.I,>X,5;iDEI.»1,'JX, 
U.  4) 


PIAG  7310 
DI*G2310 
DI AG  2320 
D1";;23  3J 
ni.\  I  ^34  0 
DIA 1 7350 
DI.AG2  )'  0 
DIAG2J70 
DTAG2JI70 
0:  A",  2  3n0 
DIAG2400 
Oil'",  24  10 
*  S  T  T  0  0 1 0 
HPTT0020 
WRT?  i  no 
WRIT  104  0 
WRrT0050 
KP.TTOO'-O 

wri:^  )7o 

W3IT00H 3 

w  r  r  t  o  o  '•  .7 

w  r  r  t  j  u  J 
w  r  i  r  j  1 1  o 

ni'T>1010 

oi;-'-'oo,",o 
.tit"  )i  n 

fJUT?  )0'«3 
O0TP0050 

OUT^OOTO 
OUTP'J  t°0 

nurpOT'O 
our?  iioj 
our?  ;1 10 

OUT" J  123 
0'ITr  JI  10 

oo rp 0140 

O'J"?0  1r-0 
OUT? 0  160 

O0TPO1R0 

ourpo  190 

OUTP0200 

o;ir?  1210 
OUT" 0220 

on;  ?  )7io 

OtITi  i2UU 
oirp  )  ""■  0 
OUT?02tiO 
OUTPO270 

ourp  )2ho 

0  U  T  "  0  2  9  0 
oorr  >  t  )0 
our?  0  3  i.o 
out.-'.;  no 
otrp  )  n  1 

OUTTO 340 

our?  1 350 
OnTPMbO 

oiirp  i  no 
our?  jiio 

OUT? 0110 
OUT!'  J400 

on^p  J4  20 

00?°.)  4  10 
Oi!T?!;440 
OUTP i450 

(VJ7POU60 
OUTP  0470 
OUT?  J4H0 
OUTP04t>0 
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1009    PO 

1 
1032    FO 

1 

f:i 
si 

3U3PO 

DI 

792    LI 

L2 

794  Wfi 
P3INT 

795  MR 
WR 
I? 

796  L1 
L2 
GO 

797  LI 
L2 
GO 

798  y 
79  3  FO 
909  FO 
917  FO 

EN 

SU 

GENE 


RHAT  ( 
D 

ponu ; 

UTI'i" 
MFiiSI 
-1 

TIE     ( 

OUT 
ITS     ( 
ITS     ( 

(L2- 
=  L  1  «-"3 
=  L2»« 

TO  7 
'lift 
=  L2»  3 

TO  7 
TURN 
R.I1AT  ( 
P.MAT  ( 
MAT  i 
D 

prou 

PATE 


1H0,10X,3IINNA,9X,3HNIS,  9X,3HN  IB  /,2X, 

X ,16)  ) 

1H1.1 20X.5UPAGE    , t 3,/, 1 X, 15H3EAL   TWO-PHASE    , 
H    TWO-COHPOI.ENT    NOZZLE    FLOW,//    ) 

IN*.    XPTBL(XP) 

TO    PntSl    OUT    XP    TABLE    C 
OH    TP  (2,75) 


6.793) 

NEW    X (P)     TABLE 
6,909)      (XP  (1  ,  ST)  ,  .TT  =  L1,  L?) 
6.917         (Xrj2     "?    ,.1T=L1,L2 
72)     796,797,718 


'15 


95 

1H1,//,50T,14HNEW     X(P)      TABLE,///) 
lilO,  JX,5HPHF.SS.  IX,  1P'?E15.4) 
1H    ,7  X,  1I1X.1  X,1P8E1S.  4) 

INK    TABLE 

NCZZLr.    FLOW    T&bLE    TAPE    S0B5JUTINE 


DISEK5T08    TV AR  (14. 2,50) ,C (6) ,XVA8  (4,  35) , TSAV1 (3  5,4,35) , 
1  TSAV2I35.U    35) 

COIiaON     TJAV1,TSAV2 

□o   i   r  =  i  ,  1 1» 

L'O     1    J=  1  ,2 
DO     1    K= 1  ,S0 

tvap  (i,.i ,;:)  -  1.  0E5 

1  CO  NT  I N  U  E 

DO    2    L=  I  ,  35 

DO    2    1=      1,4 

DO    2    K=  1  ,35 

TSAV1  (L,  I.K)     =     100000. 

TSAV2  (L,  I, XI  =     1CJ00O. 

2  CONTINUE 

DO    25     t     =     1,4 

DO    2b    J  =  1,35 

THIS    CHANGE    TO    SAKE    THE    SAX     DISENSION    CONSISTENT    WITH    THE 

XVAR     (I, J)     =     100000. 

25  CONTINUE 

3  L=1 
1=1 
Ml 
ZCARO-0 

4  RFAD     (5,101)       (C(M)  ,fl=1,t>) 
ICAP'J=ICAPU»  1 

IF     (C(1)  )5,6,5 
6     IF  (C  (2)  -  1.0)    11  .1  1,5 

5  DO    10    ?l    *    1,5, 2 

IF  (C(.«)  *C  («♦  1)     -     199999.)  8,  1  3,  13 

8  T  S  A  V 1  ( L  ,  I ,  M     =    C  ( M) 
TSAV?(L,I,K)      =    C(B*1) 
IP  (F-35)  9,9, 26 

9  K    =    <♦  1 

10  CONTINUE 
GO    TO    4 

26  WRITE     (6,900)     I,L,K 
GO    TO     j7 

11  XV    =    C[2) 

XVAR  (1,1)     =    C  (1) 
GO    TO    4 

13  IF(XV)      15, 14, 15 

14  L    *    L*1 


OUTPOSOO 
OUTP0510 
OUTP0520 
OUTP0530 
OtITP  )5'»0 
XPT-  111!) 
XPTBOO?0 
XPTP  >"  >J 
XPM0340 
:<?-ri)r.ii 

xrruoof.o 

XTT!)  J  )70 
XPTE  !C!  3 
XP?  '1  1090 
XPTfl  3  100 
XPTbOl  10 

x::„  ono 
x  p  t  a  o  1 "  o 

XPT3  015Q 

xprn  ii60 

X??3'1170 

xp:j  ji'io 
r.PT'^no 
xprn 32  30 

T?-"l  1211 
TAIL  3010 
T  A  !>  I.  J  .9  2  3 
T\"ii.  JO  3  3 
TAHL J040 
TAi'I.  nsj 
T\aL'J060 
TAJLJO^O 
,?AiiL00«,1 
TA'-L  )0"0 
TAiiL  3!  10 

TA..L  ji  n 

TAhL  1120 
TAjL  1  1  jo 
TA  II.  3140 
T  A  •  L  >  1 S  J 
TAiJl.  Tim) 
TAi.L  '170 
TAt-L  ;1'J0 
TAI  L  >1"0 
TIUIL020Q 
DI(1ENSIOrA!iL''210 
TAbL.3220 
TA2L0230 
TA3I.J240 
7A.BL  I250 
TA'JL'1260 
TALL  ,2^3 

?;;:.  -  »80 

TAfiL  J2  30 
7AF1L  3  T10 
TAHL0  110 
TA3LJ  i?0 
-AJLl  1  10 
TA'SLO  140 
TA.iL  J  1~i0 
TAuL0360 
TA  II,  .370 
TAUL  )3"0 
TA3L  3390 
TA.iL  J400 
T.1JL  3410 
■"AEL0420 
TAuL 3410 
TA3L0U40 
TABL0450 
TAQL0460 
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K=l  TAatOfJTO 

IF  (L-35)  U, '4,  27  TAJL 3490 

:  THIS    CHANGE    TO    !!AKB    THE    flAX    DIRBU3I3B    CONSISTENT    KITH    THE     DIflENSTOT  AFL  J'J'JO 

15  IF  (1-4)   16,17,17  TAilL  3500 

16  L=1  TA'JLJ510 
I  =  I  ♦  1  rAUL3'J20 
K=  1  TAL'L  >5  30 
CO    TO    '4  TAdl.  1540 

27    WRITE     (0,927)     I  TAI3L  j5r>0 

GO    TO     37  TAU1.  Ti*»0 

17  CONTINUE  TAL1LJ570 
REWIND     12 

S3ITF.      (  1  2)     XVAP  TA3I..)r>H0 

WRITE     (12)     TSAV1  TAUL  >r>  )Q 

WRIT"        12)     TGAV2  TAMLJ600 

:       HEXT    CARD     IS    FIRST    CARD    OK    TVAH    ARBA?  7A.>L)h'0 

00    3b     1=1-14  TAUL  1620 

K  =  1  "  TAbL  )ft  <G 

29  READ  (5,901)  (C(L),L-1,b)  TABL  1640 
ICA!1D=TCARD»  1  TAJI.  )650 
DO  3U  L=  1,5,  2  TAul.  IbftO 
IF(C(L)»C(L*1)-1«99  9<>.)32,J0,30  TATJ  1.067  0 

30  TVA?(I,1, K) =100000.  TABLOfiHO 
TV? P.  (I  .;:  ,K)= 100000.  TAUL Oft 10 
GO    TO     V)  TAjL<"700 

32  TVMl  (I  ,  1  ,K)=C  (I)  TA-.IL9710 
TVAR (I, 2,K)=C (t+1)  TAjLj7P0 
IF  IK-  jT)  ?3,37;j7  TAUL  3710 

33  K  =  K*1  TAjL07uO 

34  CONTINUE  TABL975Q 
GO    T"    29  TA3LJ750 

3fl    CONTINUE  TAUL  177} 

36  WRIT1-'  (12)  TVAB  rAi>L0730 
CSAVL-1.  0  TAJI.  )7'I0 
READ  (5,301)  (C(L),L=1,6)  TAdLHOO 
ICAnr.-  ICARU*  1  TA.<L!f310 
30     Ulli           1=  1,6  TAJI  M^O 

1036    CGAVIJ    =     C3AVE     ♦    Cfl)  TA31.09J0 

IF  (C"AV  5)  J7,  10  37,  37  TAU   MJ'i 

37  CALL  IMTFP(»,20,1.0,  PJ  TA.il.  JS50 
CALL    D'JrF  "API.  I960 

call  'xii  tajljh70 
10  37  contisoi? 
en  ceil*  12 

BEWI"D     12 

RETURN  TAUl  J900 

900     FOT-rtAT  (  1hO,7X,  19HER80R    IN    INPUT    DAT  A,  316)  TAilL)"0 


90J     P0R.1AT     (6512. b)  TA;.".  }9">9 

'A'1'  (  <iv3,7X,  3ft  HEX 
17HF0P     •(     =  ,T1)  7A  'LJI'lO 


927     POaaA-P('BO,7X,36HSXC3EDIIK3    .lAXIMUfl    TE*rEPATUPE     INPUT    ,  TA3L9930 


END  TA.*L  !9rO 

SUSRO'JTINE    I  STRP  (VAR.N,T,  ?)  INTSOOIO 

c  i::trot»o 

C          IF    '1=.-),     i-EAD    IN    ALL    TABLES,     SST    UP    T    APRAT,     AND    EXIT.  IN-?v040 

C          IF     (J=    20     WRITE    OUT    ALL    TABLES     AND    2XIT.  ISTH'ilSO 

C          IF     S  =  1     THRU    4,     GET    APPROPRIATE    TABLES     FROM    TAPE,  IlirROOftO 

C                INTERPOLATE     rOH     VALUE    OF    V.\R     AND    EXIT.  INTR  1070 

C          IF     N  =  5    T'(?D     19,     INTERPOLATE    'OB     VALUE     OF    VAR     AND  EXIT.                                            irS'.lHO 

c  i  :.-'•<  o 

DlflP^mi.    TV  AH  (14,2,50)  ,  TVAR  1  (  35,4,  35)  ,TVAH2(3  5,U,  35)  :  >.r  ?.  I  109 

1                 ,  TR  AT  (4  ,35)  ,  H  (  14)  I!,  l'?'J  110 

C0P1.10N     1  VAB1  ,TVAR2,TVAR  INTH3120 

iew=o  rcR  n  10 

IF  (!i)   I,  1,10  IN'.-    M'lO 

1     X=1  INT.!  0150 
REWIND     12 

BEAD     (12)     TRAY  INT37H.0 

READ     (12)     TVAR1  I.NTS  1170 

READ     (12)     TVAS2  IN7H91-30 

C  int:  3190 

C         T    ARRAY     HAS    SEEN    SET    HP,     NO.     OF    T    TSCORDS     ( K)     IS  SET,     NOW                                TNTR3200 

C                            PROCEED    TO    3RING    IN     pPSflANENT    ASSAYS.  INTU3210 


188 


READ     (12)     T7AR 
3ETUPN 

10  IF  (.'1-20)    100.  12,11 

11  WRIT."     (6,011) 
C  A  lL     EXIT 

WHIT?    OCT    TABLES    FOB    1=20,    T    IS    PAGE    COUNT. 

12  CALL    A  DATA 
LCT1=1 

.?gct=" 


WRITi:      (6,170)      LPGCT 
LP1CT=L"".CT*  1 


DO    31     L  =  1,  14 

13  MT=1 

14  TESTl=7VAr(L. 1.NT) »TVARJL,2.NT) 
IP  (TZST1-2.  J*»990«>.)  15,15,16 

15  NT=NT»1 

:p(:it-50)  in,  14.1000 

16 


TVAH  (L,  1  .NT)  =0.0 
TVARJL, 2,  NO  =1.0 
I?  ('IT-  1)  51b, 520.51! 
INPUT    Til  IS    FABLS 
520    WHITE     (6  ,  J52  0)     II  (L) 
LCfl    =     LCTH4 


GO    TO    5)0 
515     NT=MT-1 

■  RITE      (6,116)      f?(L) 

L2  =  AMi::0  (H,NT) 

LT  =  1 
18     SHITE     (6,01R)      H(I.)  .  (T7AR  fL,2.LK)  ,LK=  L1,L2) 

WRIT"     kill         ITVAR  {L,  1,LK)  ,LK=L1  ,  L2  ) 

ZT11.2-K?)  10,  20,20 
10     L1=L1*S 

L2  =  A-IN J  (L2»3, NT) 

LT=LT» 1 

GO    TO     14 

20  LCT1=LT* J» J» LCT1 
530    IF(LCT 1-c2) 30,21,21 

21  -Hir?     (6,12))      LPGCT 
LPGCr=LPGCT» 1 
LCT1=1 

30  CONTIHIJE 

PEWl'rfD    12 

DATA  II  (  1)/f»H  CAG/ 
DATA  'I  2)/«H  CBG/ 
DA~\  :i(3</»H  WAG/ 
DATA  ri  (4  |/4M  WBG/ 
DO    50     L= 1,4 

IF     (TRAY     (L,  1)  -91099.)     29,29,50 
29     WPITE     (6,121)      LPGCT 

31  WRIT"     (6,)Ti)     H(L) 
LPGC:=LPGCT» 1 
LCT1=1 
DO    45     KK=1,35 


IP     (TRAY     (L, KK)- *OO09.)     32,32,45 
32     .RITE     (0.1)4)     TKAY(L.Kk) 
LCT1=LCT1*J 
SCT=1 

34  TES?1=T?»R1(  fK.L,  1CT)  «-TVAR2  [KK,L,  1ZT) 
IP  (T-!STl-2.J»9990O.)   35,36,36 

35  NCT=NCT ♦  1 

I F  (If?- 35) 34 ,34,  1000 

36  NCT=NC7-1 
Ll  =  1 
L2=*riNl  (fl,NCT) 

37  COSTIIMJP 

38  DO    il    LT=L1, L2 

IP  (TVAR2  (i<K.  L,  L7)  -100000.)  63,60,63 
60    TVAS1 (KK.L.LT) =0.0 

TVAR2     <K.L,LTJ  =0.0 
63    CONTINUE 


IVTR 

12  '0 

INTIt 

12J0 

INTH 

1250 

r»T5 

>2'-0 

r  s  r;; 

J  270 

INTR 

;2R0 

INTR 

)7'10 

INT-J 

)4a0 

I  NTR 

3450 

I  •'?;•: 

~,4-0 

i:;n 

JU7Q 

TST.. 

)u>\o 

r  N  r '; 

1'iOO 

INTH 

1500 

INTR 

)510 

INTR 

:c)70 

INTP 

35  10 

TN^R 

jsuo 

IN"R 

^550 

INTR 

)560 

TN7R 

)570 

INTR 

lr>  '0 

:::-  • 

)S''0 

I  ST  .- 

J-v>0 

i  n  :  .< 

H,  10 

INTO 

'6">0 

ist.< 

J610 

IN--R 

>  6  4  0 

INTR 

i6r-0 

I  ST  5 

)6S0 

in:: 

1*370 

IN"'' 

Ifi  HO 

IN1"1 

/«iiO 

isrr 

1710 

INT" 

;710 

INTR 

)7  '0 

ihtu 

)710 

TMTa 

)7u0 

INT? 

JT-'O 

I N  r  R 

)7f.O 

INT? 

)770 

TN-1 

)7''0 

is;i 

J710 

IN  PR 

irtOO 

mr5 

)0  10 

r  S  7  3 

)H70 

I  ST 

10  10 

I  <i  I  .- 

J-Juo 

I  •!  "  - 

}H<--0 

1ST  ( 

lJ'.0 

int.; 

jmo 

TNT  R 

)H"0 

IN  PR 

;  i  >o 

TN'R 

1O00 

INTR 

1010 

INTH 

!O">0 

INT" 

14  <0 

IH7S 

)940 

T  "1  -  ' 

io<-,0 

INTR 

)--0 

IN":. 

)o->o 

T  N  "  1 

;o«o 

INTR 

;^'f0 

INT  t 

1000 

TNT? 

i  no 

INTR 

1  J20 

INT.. 

10  )0 

:s  rn 

1040 

INTR 

1050 

INT' 

1060 

INTH 

1070 

139 


PILE:    TH3 


FORTRAN       A1       NA¥AL    POSTGRADUATE    SCH33L 


WRITS  (o,138)  H  (I)  ,  (TVAR2(KX,L,Lr)  ,LT=L1,L2) 

39  .SITE   6,939)   (TVAR1 <XK, L.LT) , LT=L1, L2) 
LCT1=LCT  1*3 

I?  f!XT  1-5?)  6  6,  65,65 

65  fcBITE.     (6,123)     LPGCT 
LPGCT=LPGCT»  1 
LCT1=3 

66  IF  (L2-NC7)  40,4  1,1*1 

40  L1=L1»B 
L2=A"IN0  <L2*8,  NCT) 
SO    TO     33 

41  IF  (IX  T  1-52)  4  5,  42,  42 

42  V31Z*     (6,920)      LPGCT 
LPGCT= LPGCT* 1 
LCT1=3 

45    CONTINUE 
50    CO NTT SUE 

It  (law-  1)  1047,  1046,  1047 

1046  N  =  0 

1047  RETURN 

C       N=1     THKC     18    -    INTERPOLATE    ROUTINE 

100  IP  (N-U)    101, 101,  150 

101  DO     104     1=1,35 

IE  (TP\r  (N,I)  -T)  104,  105,105 

104  CONIItlTJR 

105  I?  (1-1) l06, 120,106 

106  111=1-1 
7K=T?A7  (N,  I) 

TKi=r".\r  (N.r  ii) 

00    107     .11=1,  35 

IP(TV»Il  I  (111  ,  N,J1) -P)   107,107,108 

107  CONTT'ltJR 
GO    TO     120 

108  IF  (J  1-  1)   109.  120,  109 

109  IF  (TVSri  1  (I  11  ,N, J  1)*TVAH2  (1.11,11, J1)  -2  .0*9  9999.1  110,  12  0,  120 

110  JHl=Jl- 1 


jir  ?r- :  v.\p  i(  i.i  i,  :i,j  n  -  rv  ah  i  (ta  i,h,  jh  i) 

DIFF1=  f  VA3  1  (I»  1.M..M)  -P 

PC1=- fOIF71/Dir?T)* (TVAB2(IH1, M,J1|  -T« 


11  1 


112 
113 


114 


130 

120 


TVAR2  (1.11,  M,  J.11)  )  ♦ 
1TVAP?  (II  1,!I,.J1) 
DO     111    J  ;=1,  35 

IF  (TV  A?  1  (I.N..I2)  -F)   Ill  ,1  11,1  12 
CONTINUE 
GO    TO     120 

IP 'J2-  1)   113,  120,  1  13 
J«2=.I2-  1 
P(TVAK1  (1,1  ,  J  2)  ♦TVAR2  (I.K.J  2)  -2.  «99  999.)  1  14,  120,  120 


150 
155 

151 

152 
153 
154 

1 


DIr?T=rv  AR  1(  I,  N.  J  2)  -TV  AP  1  (I,  H,  J.12) 

DIFt'1=  I  7AR1  (I,  N,  J  2)  -P 

PC2    =  -  (DIFF1/0  IF  FT)  *  (TVAR2  (T.N, .12)  -T 

V»S=(r-TK1)/(TK-TK1)»(PC2-^Cl)«-PC1 

RETUPrl 

S  =  0 

I  HW=  1 

GO    TO     12 

•J  =  N-4 

IF  (1-15)  155,  1000,  1000 

COKTTHUE 

DO    15  1     I  =  1,'3  0 

I?  =  I 

T»  (TV  AT  (11,  1,1)  -T)  151  ,  151,  152 

COMIHUE 

GO    T^     120 


?AS2 (I,H,JH2) ) *TVAR2(I,N,J2) 


I?  (TV  A"  (S.  1.TJ  ♦TVAR  (:<,2,I)  -2 .  0»999"9  .)  153,  120,  120 

IF  ill-  1)    154,  120,  154 

ipl=T?-1 

VAP.=  ( (T-TVAR  (N,  J. IP  11)  /(TVAR  (N  ,  1  ,  IP)   -TVAH (M,  1  , I P  1 )  )  ) 

•  C7AR  (N  .2,1  p)  -TVAR  (N.2,  IM)  )»T7AH(H,2,I?1) 

GO    TO     130 


1000    CONTINUE 

CALL    OUTPUT 


TNT. 

H«0 

INTIi 

39  0 

TN  "? 

11.10 

INT.' 

1  1  10 

INTH 

120 

ihtr 

I  1  10 

IfiTR 

140 

T'TP 

1150 

INT? 

1160 

rNrs 

173 

INTH 

HO 

i'i:r 

HO 

T  w  r 1 

12.10 

I N  T  R 

210 

i  n  :  r 

220 

TNT  a 

210 

INTR 

240 

TNT° 

"260 

INT75 

260 

INT  1 

12  70 

TNT.* 

2  90 

I  N  r  R 

2^0 

IN  rv 

300 

I  NT^ 

310 

INT? 

3?0 

ISTK 

)  <3 

INT?. 

1»0 

IN  Til 

!50 

I  NTS 

160 

INT.! 

170 

T  N  V  1 

H,0 

INT.'! 

r>o 

1ST? 

U  13 

T  N  r  K 

4  10 

IN"" 

4  20 

TNTi 

a  ij 

T  N  r  i 

44  0 

IHTR 

46  3 

ISTK 

4'-  ) 

IN''" 

U70 

I  ST  .7 

4<0 

INT) 

490 

I  NTS 

r.'J3 

TNT" 

5'0 

IST1 

52!) 

TNT? 

5  10 

TNT? 

54  0 

INT' 

6,3 

INTS 

5  .0 

I  N  :  K 

670 

IN!"  R 

660 

IN  "4 

V'O 

INT  1 

630 

TNT? 

6  10 

t>20 

::it: 

b  !  ) 

IHTR 

•viO 

IN"? 

660 

t  •; :  t 

tj'-O 

:st  , 

o'O 

t  :i  i .: 

6  HO 

int? 

>,'V) 

TNT? 

7  19 

INT? 

7  19 

I  N  <"  .-' 

7?>Q 

•  n  r  :- 

1  <0 

T  *JT ? 

740 

:-<r? 

75  0 

:s  TR 

7Af) 

INT? 

77,9 

INT? 

730 

I  NT?  1 

790 
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CALL    Otlip 

RETURN 

911 

FORTAT 

1H0, 

91b 

POPKAT 

1H0, 

91H 

FOP1AT 

my. 

919 

FORMAT 

J 1H 

I  HI, 

920 

POR"IAT 

9ju 

KOflHAT 

mi, 

938 

FORS.'T 

mo. 

9J9 

fcbaat 

1H     , 

9520 

FORMAT 

1H0, 

7  X  ,33  H  ILLEGAL    CALLING    So^UFNCE    TO    INTRP) 

56X.1  1HI  IP'IT    TAJLE,2X,  AS,/) 

Ao,  1FME1  5.6) 

, 2X.4HTSMP,  1t>8E15.6  ) 

/,  1  Jox.uHru;1-,  Jt,  U) 

ilOX,  lUHTSirEaVrUPE    =    ,F12.«,//) 

3X, AG,  1?Hf 15.0) 

3T,?iir.:J5SS   .ix,    ir«Fia.s) 

/,  1H0,7X,  IriHNO    INPUT    FOP.     TA3LE,     A6) 
£•••••«»*•••*»•*••*•  **••*•••*••**••*«*••*•*•••«•*••«•**••*  •••»*•••«•* 
SIWJUTINE    3U.1F 
CALLS* IT 
RETURN 
END 

C 

c*«**.*.*«. ***.»......,*.•*.*. ...*....«.*. •«*•*.••*.«•.••••«•••••*•*•« 

SUPSOIITINF    ADATA 

DIBENS  10*1    Mr  (  1H)  ,U(  14)  ,  HTM  '91  ,H1  (14) 

CO«fin>)     !!T,H 

DATA    HT1/4H    CAG.Uf!    C3G,4H    WAG,4H     »AJ,^H    CAL, 

1  4H    C3L,4H        LA.4H        L3,4il    ?  30,  4  IIRO  AL, 

2  4H:v1JL,4H    KAG.4H     K  3G  ,4  tlVt  AL  ,  411  VI  3L, 

3  4HV  \G  ,4IIVT  BG.UH     SIG/ 

DATA    H1/4H    CAL,4B    CBL.4H    rtLA,4R    HL3.4M    "30, 

1  4i1R",\L,UHPOBL,4rt    KAG,4II    K3G,iH»IAL, 

2  4HVI3L,4hVIAG,4HVI3G,4H     SIG/ 
DO    10    1=1,13 

HT  (I)  =HT1  (I) 
10    CONTINUE 

DO  20  1=1,14 


TNTS  1170 

i  s  r  '^  H  i  o 

INTH  H?0 
I!ITP  1310 
TNih  1140 
INT3  1*50 
INTP  13n0 
INT:!  1  '170 
INT3  IHnO 
INTP.  IS JO 
IMT3 1900 
INT3  1910 


20 


HIT)=H^  (I) 
ONTIM'JE 


C 

RETOHN 
EDO 


191 


LIST  OF  REFERENCES 


National  Aeronautics  and  Space  Administration,  Technical 
Report  32-987,  Acceleration  of  Liquids  in  Two-Phase 
Nozzles  by  D.  G.  Elliott  and  E.  Weinberg,  July  1958. 

AIAA/SAE/ASME  17th  Joint  Propulsion  Conference,  Report 
AIAA-81-1604 ,  Biphase  Turbine  for  Marine  Propulsion  by 
L.  Hays,  July  19  31. 

Tables  of  Thermal  Properties  of  Gases,  National  Bureau 
of  Standards  Circular  564,  November  1,  1955. 

Flow  Measurement/Instruments  and  Apparatus,  Part  5  - 
Measurement  of  Quantity  of  Materials,  The  American 
Society  of  Mechanical  Engineers,  February  1959. 


192 


BIBLIOGRAPHY 


Berstein,  A.,  Heiser,  W.  H.  and  Hevenor,  C.,  Compound- 
Compressible  Nozzle  Flow,  Journal  of  Applied  Mechanics 
Paper  No.  6  7-APM-L,  November  1966. 

Cerini ,  D.  J.,  A  Two-Phase  Rotary  Separator  Demonstration 
System  for  Geothermal  Energy  Conversion,  12th  IECEC  Paper 
No.  770135. 

Cerini,  D.  J.  and  Hays,  L.  G.,  Power  Production  from  Geo- 
thermal Brine  with  the  Rotary  Separator  Turbine,  American 
Institute  of  Aeronautics  and  Astronautics,  Inc.  Paper  No. 
809156,  1980. 

Colwell,  G.  T.,  Low  Density  Nozzle  Flow,  The  American  Society 
of  Mechanical  Engineers  Paper  Mo.  6  8-WA/FE-9,  August  196  8. 

Dash,  S.  M.  and  Thorpe,  R.  D. ,  Shock-Capturing  Model  for 
One-  and  Two-Phase  Supersonic  Exhaust  Flow"  American  Insti- 
tute of  Aeronautics  and  Astronautics  Paper  No.  80-12  5  4, 
February  19  31. 

Ganic,  E.  M.  and  Rohsenow,  W.  M.,  On  the  Mechanism  of  Liquid 
Drop  Deposition  in  Two-Phase  Flow,  The  American  Society  of 
Mechanical  Engineers  Paper  No.  76-WA/HT-13,  July  19  76/ 

Hays,  L.  and  Meal,  J.,  Biphase  Turbines  for- Diesel  Bottoming, 
Energy  Research  and  Development  Administration  Paper  No. 
779077 . 

Hiley,  P.  E.  and  Wallace,  H.  W.  and  Booz ,  E.  E.,  Nonaxis- 
symmetric  Nozzles  Installed  in  Advanced  Fighter  Aircraft, 
AIAA/SAE  11th  Propulsion  Conference  Paper  Mo.  75-1316, 
August  1973. 

Keenan,  J.  H.  and  Kaye ,  J.,  Gas  Tables  ,  John  Wiley  8  Sons, 
Inc.,  1943. 

Lewis,  W.  G.  E. ,  Propelling  Nozzle  Research,  lecture  given 
to  the  Society  on  April  2  3,  1963 . 

Li,  W.  and  Lam,  S.,  Principles  of  Fluid  Mechanics,  Addison - 
Wesley  Publishing  Co.,  1964. 


193 


Muench,  R.  K.  and  Ford,  A.  E.,  A  Water-Augmented  Air  Jet  for 
the  Propulsion  of  High-Speed  Marine  Vehicles  ,  paper  presented 
at  the  AIAA  2nd  Advanced  Marine  Vehicles  and  Propulsion 
Meeting,  Seattle,  Wash.,  May  1969. 

Nunn,  R.  H.  and  Brandt,  H.,  Aerodynamic  Throttling  of  Two- 
Dimensional  Nozzle  Flows,  August  19  70. 

Replogle,  J.  A.,  Myers,  L.  E.  and  Brust,  K . ,  Flow  Measurements 
with  Fluorescent  Tracers,  March  1968. 

Schlichting,  H.,  Boundary-Layer  Theory,  McGraw  Hill  Book  Co., 
1979. 

Shapiro,  A.  E.,  The  Dynamics  and  Thermodynamics  of  Compres- 
sible Fluid  Flow,  Vol.  1,  The  Ronald  Press  Co.,  195  3. 

Streeter,  V.  L.  and  Wylie ,  E.  3.,  Fluid  Mechanics ,  Seventh 
Ed.,  McGraw-Hill  Book  Co.,  19  79. 

Thornock,  R.  L.  and  Brown,  E.  F.,  An  Experimental  Study  of 
Compressible  Flow  through  Convergent-Conical  Nozzles, 
Including  a  Comparison  with  Theoretical  Results,  ASME 
Publication  Paper  Mo.  71-WA/FE-3,  June  19  71. 

Wagner,  J.  L . ,  A  Cold  Flow  Field  Experimental  Study  Associated 
with  a  Two-Dimensional  Multiple  Nozzle""^  19  71  . 

Wagner,  W.  3.  and  Owczarek,  J.  A.,  An  Investigation  of  the 
Corner  Secondary  Flows  Generated  in  Planar  Nozzles,  The 
American  Society  of  Mechanical  Engineers  Paper  No.  7  3-WA/ 
Fles-5,  August  19  73. 

The  American  Society  of  Mechanical  Engineers  Paper  No.  30- 
GT-90,  Some  Effects  of  Using  Water  as  a  Test  Fluid  in  Fuel 
Nozzle  Sprav  Analvsis,  December  19  79 . 

Air  Force  Systems  Command  Report  SRD-73-161,  Techniques  for 

Injection  and  Acceleration  of  Particles  by  Ultra  High  Speed 
Gas  Je~s ,  February  19  74. 


194 


INITIAL  DISTRIBUTION  LIST 

No.  Copies 

1.  Defense  Technical  Information  Center  2 
Cameron  Station 

Alexandria,  Virginia   2  2  314 

2.  Library,  Code  0142  2 
Naval  Postgraduate  School 

Monterey,  California   9  3940 

3.  Department  Chairman,  Code  6  9  1 
Department  of  Mechanical  Engineering 

Naval  Postgraduate  School 
Monterey,  California   9  3940 

4.  Professor  Joseph  Sladky,  Code  69Zy  3 
Department  of  Mechanical  Engineering 

Naval  Postgraduate  School 
Monterey,  California   9  3940 

5.  LT  Thomas  C.  Nollie,  Jr.,  USN  2 
14013  Spinning  Avenue 

Gardena,  California   90249 


195 


19951*5 


Thesis 

N843  Nollie 

C'1  Dual-phase  nozzl( 

flow. 


Thesis 
N843    Nollie 

c.l         Dual-phase  nozzle 
flow. 


1§C5^5 


